while (<>) {
   chomp;
   next if defined($last) && $_ eq $last;
   $last = $_;
   print;
}
[download]

On the other hand, if you're trying to remove duplicates, the answer is in perlfaq4.