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