Select Code to Download

$formatted_date = sprintf "%.2d.%2d.%2d", $mon+1, $mday, $year%100;

=head2 greg2rd

...
($mon,$mday,$year) = split /\./, $formatted_then;
$then = greg2rd($year+1900, $mon, $day);
delete if ($now - $then > $autodelete);