use Win32::API;

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

$return = $dec->Call( 'test', 'test', 'test' );

print $return;