> perl -wnle "print qq(Files remaining ) . @ARGV; print $seen{$_} .= @ARGV; " file1 file2 file3