perl - timer

to ne morš.. lako pa nardi tko da skripta laufa cel čas, pa usake toliko časa pogleda kolk je ura, pol se pa zažene..

Probaj uporabiti tale skript za get time...

###################
# Get date and time
###################
sub getdatetime {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
#my $month = ($mon + 1);
my @months = ("januar","februar","marec","april","maj","junij","julij",
"avgust","september","oktober","november","december");
$year += 1900;
my $long_date = sprintf("%02d. %s, %4d ob %02d:%02d:%02d",
$mday,$months[$mon],$year,$hour,$min,$sec);
print "$long_date";
}