Select Code to Download

use Win32::API;
my $dec = Win32::API->new('mydll.dll', 'CurrentDate', '', 'L') or die 
+$^E;
...
$year = 1900 + $year;
$month++;
printf "%02d/%02d/%02d %02d:%02d:%02d\n", $year, $month,$day, $hour, $
+min, $sec;

use Win32::API;
my $dec = Win32::API->new('mydll.dll', 'GetVersion', 'PN', 'L') or die
+ $^E;
my $lpBuffer = " " x 64;
$return = $dec->Call($lpBuffer, 64);
print $lpBuffer;

use Win32::API;
my $dec = Win32::API->new('mydll.dll', 'OpenConnection', 'PPP', 'L') o
+r die $^E;
...

$return = $dec->Call($db, $user, $pwd);
print $return;