Originaly taken from this file:

#!/e:/perl/bin/perl -w
$^O eq "MSWin32" || die "Limited to Windows for now\n";
use Win32;
$time = Win32::GetTickCount();
$day = int($time/86400000);
$hour = int(($time-($day*86400000))/3600000);
$min = int(($time-($hour*3600000))/60000);
$sec = int(($time-($min*60000))/1000);
print "$day days $hour hours $min minutes $sec seconds\n";
Once I tried to incorporate it into:
#!/e:/bin/perl -w

# Messagebox in perl
# Showing Username
# Computername
# Domain logged into
# IP
# Localtime
# And uptime

$^O eq "MSWin32" || die "Not using Windows !";

use Win32;
use Socket; # Should I?

# get credentials
$name=Win32::LoginName();
$comp=Win32::NodeName();
$domain=Win32::DomainName();
if ($comp eq $domain){$login="local";}
else {$login="to the network";}
$ip_get=gethostbyname("$comp");
$ip=inet_ntoa($ip_get);
# create string from credentials
$cred="Login name : $name\nBox name : $comp\nDomain name : $domain\nLogged in $login\nIP : $ip\n";

# getting the time

($sec,$min,$hour)=localtime;
$local="Local time : $hour:$min:$sec";

$tick=Win32::GetTickCount();
$day=int($tick/86400000);
$hour=int(($tick-($day*86400000))/3600000);
$min=($tick-(($hour*360000))/60000);
$up="Uptime: $day days $hour hours and $min minutes";
$time= "$local\n$up\n";

# creating final string
$string="$cred$time";

# now for the creation of a message box
Win32::MsgBox("$string",48,'LOCAL INFO');
I started experiencing time problems to.

Sorry for the stupid smile in the middle.
Did't know how to get rid of it.

EDIT
got rid of it thanks to tiger_shark