my ($day, $month, $year) = (localtime time)[3..5];
$year += 1900;
$day = sprintf "%02d", $day:
$month = sprintf "%02d", $month + 1;
my $date = "$month-day-$year";