until ($log_written != 0) { print FILE "*** SCRIPT RUN ON: " . $dt . " ***\n"; print FILE "Deleting backup files more than 1 day old:\n"; foreach my $file () { if ( -M $file > 2 ) { #print "Deleting the log file more than 1 days old: " . $file; unlink $file or die "\nCould not delete the backup $file: $!"; print FILE "Deleted -> " . $file . "\n"; } } foreach my $file2 (){ if ( -M $file2 > 2 ) { #print "Deleting the log file more than 1 days old: " . $file2; unlink $file2 or die "\nCould not delete the backup $file2: $!"; print FILE "Deleted -> " . $file2 . "\n"; } } print FILE "\n\n"; print "Backups older than 1 day have been successfully deleted! See LOG file for more details.\n"; $log_written = 1; }