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";   
}