my ($d,$m,$y) = (localtime)[3,4,5]; my $mdy = sprintf '%d/%d/%d', $m+1, $d, $y+1900; #### my $mdy = sprintf '%02d/%02d/%04d', $m+1, $d, $y+1900;