note
jacques
This is an update of [Roy Johnson]'s great answer, for those who just want the current time formatted in m/d/y.
<code>
my ($d,$m,$y) = (localtime)[3,4,5];
my $mdy = sprintf '%d/%d/%d', $m+1, $d, $y+1900;
</code>
Or if month and day should always be two digits:
<code>
my $mdy = sprintf '%02d/%02d/%04d', $m+1, $d, $y+1900;
</code>
16212
16212