sidburn@sid:~/perl$ perl -wle 'print scalar localtime(1185606012)'
Sat Jul 28 09:00:12 2007

sidburn@sid:~/perl/hex$ perl -e 'print scalar localtime(1183020463)'
Thu Jun 28 10:47:43 2007

while(my @row = $sth->fetchrow_array()) { 
                my $took = $row[5];
                my $ws   = $row[3];
                my $info = substr $row[6],0,5; 
                my $time = substr $row[9],0,10;
                
                my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time);
                $mon  += 1;
                $year += 1900;
                my $time_stamp = sprintf "%s.%s.%s %s:%s:%s", $mday, $mon, $year, $hour, $min, $sec;
                
                my @data = "$time_stamp $took ms for $info on $ws\n";
                open(IN, ">>$local_time.txt") or die $!;
                  print IN @data;
                          close IN;
               print "$time_stamp $took ms for $info on $ws\n";   
}

[...]
                my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time);

[...]

my ($sec, $min, $hour, $mday, $mon, $year) = (localtime($time))[0..5];

my ($sec, $min, $hour, $mday, $mon, $year) = localtime($time);