print "Please enter the files to be removed: \n";
   my @removed_files =  split, <STDIN>;

   foreach my $file (@removed_files) {
      print "FILE: $file \n";
      unlink ($file);
   }
~