use Win32::OLE qw(in with);
my $RL = Win32::OLE->new('RiskLib.RiskLibclass') or die "oops\n";
call $RL->RiskLibVersion(1,$y);
print $y;