Select Code to Download

my ($d, $m, $y) = (localtime)[3 .. 5];
++$m;
$y += 1900;
$date = "$m$d$y";

use POSIX 'strftime';

$date = strftime('%m%d%y', localtime);