#!/usr/bin/perl
# rm-new-files.pl
# put DIR at beginnung of path of files to be removed
# 191119

while (<>) {
      $line = $_;
      chomp $line ;
      $dir = "/media/gerd/" ;
      print "rm $dir$line\n" ;
}