perl -e '@a = $ARGV[0]? @ARGV : (<STDIN>); chomp @a; print join  "\n", grep { ! $s{$_}++ } @a;' $*