#! perl -slw
#use strict;
use Win32::API::Prototype;;

ApiLink(
    'testdll', q[SHORT _test@16( SHORT a, SHORT b, SHORT c, SHORT d )]
) or die $^E;;

print "$_*4 = ",  &{'_test@16'}( ($_) x 4 ) for 1 .. 10;
__END__
C:\test>testdll
1*4 = 4
2*4 = 8
3*4 = 12
4*4 = 16
5*4 = 20
6*4 = 24
7*4 = 28
8*4 = 32
9*4 = 36
10*4 = 40