open FILE,'<',$file or mySub($!,%files);

sub mySub {
   my $msg = shift;
   my %hash = shift;
   foreach my $key (keys %hash) {
      if (unlink $hash{$key}) {
         print LOG "$hash{$key} was successfully unlinked\n";
      } else {
         $msg .= "Unable to unlink $hash{$key}\n";
      }
   }
   die $msg;
}