#include <windows.h>

__declspec(dllexport) short _stdcall test( 
    short a,
    short b,
    short c,
    short d
) {
    return a+b+c+d;    
}

##</code><code>##

LIBRARY TESTDLL.DLL

EXPORTS
    test

##</code><code>##

cl /LD testdll.c /link /DEF:testdll.def

##</code><code>##

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

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

print "$_*4 = ",  test( ($_) 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

##</code><code>##

Dump of file testdll.dll
...
    ordinal hint RVA      name
          1    0 00001000 _test@16

##</code><code>##

Dump of file testdll.dll

File Type: DLL
...
    ordinal hint RVA      name
          1    0 00001000 test

##</code><code>##

#! 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

##</code><code>##

#include <windows.h>

__declspec(dllexport) short _cdecl test( 
    short a,
    short b,
    short c,
    short d
) {
    return a+b+c+d;    
}

##</code><code>##

Dump of file testdll.dll
...
    ordinal hint RVA      name
          1    0 00001000 test

##</code><code>##

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

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

print "$_*4 = ", test( ($_) x 4 ) for 1 .. 10;
__END__