use Win32; my $bootTime= time() - Win32::GetTickCount()/1000;