unlink($file) or
     print "File $file was not deleted: $!.\n";