my $toggle = 0;
while (<FILE>) {
   next if $toggle ^= 1;
   print;
}