use Win32::API;
my $temp='123456789';  
$sp='    ';  
my $fun=new Win32::API('DataGenerate.dll','GetACC','LL','L' ) or die $^E;  
my $y = $fun->Call($temp,$sp);  
print($y);