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