Help for this page
perl -MO=Deparse -ne 'print unless $n{$_}++' my_file.txt
LINE: while (defined($_ = <ARGV>)) { print $_ unless $n{$_}++; }