my $GetTickCo­unt = Win32::API­->new("ker­nel32.dll"­,'GetTickC­ount','','­I');

##</code><code>##

my $now= Win32::GetTickCount();

##</code><code>##

my $ticks= do { use integer; Win32::GetTickCount() - $time };

##</code><code>##

my $ticks= Win32::GetTickCount() - $time;
$ticks += ~0   if  $ticks < 0;