Select Code to Download

  my $foo;
  while( <> ) {
    chomp; # maybe, maybe not, depending on the circumstances
...
      $foo = $_;
    }
  }