my $i = 0;
while (<FILE>) {
  next if ++$i % 2;
  print;
}