Select Code to Download

sub Today()
{
    my ($day, $month, $year) = (localtime)[3,4,5];
    return sprintf "%04d%02d%02d", $year + 1900, $month+1, $day;
}

sub getdate {
my ($min, $hr, $day, $mon, $yr) = (localtime($filedate))[1,2,3,4,5];
$filedate = sprintf "%02d-%02d-%04d", $mon+1, $day, $yr+1900;
$filetime = sprintf "%02d:%02d:00", $hr, $min;
}