#!/usr/bin/perl
# chop
# remove last line from input file

$last="";
while (<stdin>) {
  print $last;
  $last=$_
}
exit (0);