my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$date = "$mday/$mon/$year $hour:$min:$sec"; # THIS IS WRONG!!!!

# do something like this instead:
my @time = localtime;
my $date = sprintf("%2d/%2d/%4d %02d:%02d:%02d", $time[4] + 1, $time[3], $time[5] + 1900, @time[2,1,0]);