my $lastline;
while(<>) {
 print if $lastline ne $_;
 $lastline = $_;
}