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