use Time::Local; my $mtime=(stat("filename.extension"))[13]; my ($day, $month, $year)=(localtime())[3,4,5]; my $midnight=timelocal(0,0,0,$day,$month,$year); unlink ("filename.extension") if ($mtime>$midnight);