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