use strict;
use warnings;

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

my $stamp = sprintf "%02d/%02d/%02d  %02d.%02d.%02d", 
       $year +1900, $mon +1 , $mday, $hour, $min, $sec;

print STDOUT $stamp;