コード貼り付けテスト

コード貼り付けのテスト。

use strict;
use warnings;
use Win32::OLE;

my $jv = Win32::OLE->new('JVDTLab.JVLink');
my $ret = $jv->JVInit('UNKNOWN');

print "Return Code: $ret\n" ;
print "Version: ", $jv->m_JVLinkVersion, "\n" ;
$jv->JVClose();

1;