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