Select Code to Download

  open my $fh, "<", $input or die "$input: $!";
  foo($fh);
...
    my $line = <$fh>;
    print $line;
  }