Select Code to Download

use URI::Find;

my $text = "alot of HTML";
...
 print $orig_uri,"\n";
 return $orig_uri;
});

use HTML::SimpleLinkExtor;

my $extor = HTML::SimpleLinkExtor->new();
...
$extor->parse($html);
#extract all of the links
@all_links   = $extor->links;

require HTML::LinkExtor;
 $p = HTML::LinkExtor->new(\&cb, "http://www.perl.org/");
 sub cb {
...
     print "$tag @{[%links]}\n";
 }
 $p->parse_file("index.html");