#! perl -w
use strict;

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

__END__
thisscript infile  > outfile