use HTML::LinkExtor;
sub get_links {
$test = HTML::LinkExtor->new(\&agarrar)->parse($code);
return @links;
sub agarrar {
my ($a,%b) = @_;
push(@links,values %b);
}
}
use LWP::Simple;
$code = get("http://127.0.0.1/doddy/index.php");
my @ver = get_links();
for my $url(@ver) {
print $url."\n";
}