Select Code to Download

open my $fh, '<', 'infile';
while( <$fh> ) {
  # do something with $_.
}
my @remainder = <$fh>;