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;
}