use Win32::API;
my $inc_number = Win32::API->new('testdll.dll','inc_number',"P","I");
sub inc_number { $inc_number->(@_); };