use Win32::API;

die "ack!" unless Win32::API->Import('testdll.dll', 'int inc_number(int *num)');

my $num = 5;
inc_number($num);
print "Number is now $num\n";