Select Code to Download

@ARGV = '/path/to/perlfunc.pod';

...
  print "$1\n"
 }
}

sub findtext {
@filenumbers = @_;
...
    next;
    }
}