perl -le '$seen{$_}++ while <>; print keys %seen;'