#!perl -w use strict; # script to eliminate all duplicate lines # from all files on the command line # perl no_dups.pl dups.txt my %seen = (); while ( <> ) { print unless $seen{$_}++; }