my($d,$m) = (localtime)[3,4];
my $date  = sprintf("%02d/%02d",++$m,$d);