use strict;
use diagnostics;

use Win32::API;

my $func = Win32::API->new ('C:\func.dll', 'myFunc',['I'], ['I']) or die "Can't make a Win32::API object!";

print "ReturnCode = ", $func->Call(100);