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

my $date=sprintf("%0.2d/%0.2d/%0.2d %0.2d:%0.2d:%0.2d",
                   $mon+1,$mday,($year-100),
                   $hour,$min,$sec);