#!/usr/ug/bin/perl

$line = "";
foreach (<>) {
  print $_ unless ($line eq $_);
  $line = $_;
}