Select Code to Download

  sub filehandle_parse {
    my $fh = shift;
    my $string = do { local $/; <$fh> };
    ... work on $string
  }

  sub filehandle_parse {
    my $fh = shift;
    string_parse(do { local $/; <$fh> });
  }