Select Code to Download

perl -e 'while(<>){ $_{$_} or print $_; $_{$_}=1;}' <file

perl -e 'while(<>){ $_{$_}=1;} print sort keys %_;' <file