Select Code to Download

# uniqfiles.pl
use strict; # helps prevent silly mistakes
...
   }
}
print $_,"\n" for keys %uniq_fnames;  # prints to STDOUT, can be piped
+ to a file

perl uniqfiles.pl < my_non_unique_list_of_files > my_unique_list_of_fi
+les