my $now= Win32::GetTickCount();