win32 sysuptime

sysuptime.pl

use strict;
use Win32;

my $time = Win32::GetTickCount();
my $days = int($time / 1000 / 60 / 60 / 24);
my $hours = int(($time = ($time - $days * 1000 / 60 / 60 / 24)) / 1000 / 60 / 60);
my $min = int(($time = ($time - $hours * 1000 * 60 * 60)) / 1000 / 60);
my $sec = int(($time = ($time - $min * 1000 * 60)) / 1000);

print "System uptime: $days days, $hours hours, $min minutes, $sec seconds\n";