open in,"file" or die "can not open input file\n";
while (<in>){
  print if ($_ ne $prev_record);
  $prev_record = $_;
}