use Win32::API;
$timer = Win32::API->new( "winmm.dll", "long timeGetTime()" );

##</code><code>##

>> Win32::API::parse_prototype: WARNING unknown output parameter type 'long' at C:/Perl/site/lib/Win32/API.pm line 273.