#!/usr/bin/perl
use strict;
use HTML::LinkExtor;
my $p = new HTML::LinkExtor;
$p->parse_file(*DATA);
foreach my $links ($p->links())
{
map {print "$_ "} @{$links};
print "\n";
}
exit 0;
#!/usr/bin/perl
use strict;
use HTML::LinkExtor;
my $p = new HTML::LinkExtor;
$p->parse_file(*DATA);
foreach my $links ($p->links())
{
map {print "$_ "} @{$links};
print "\n";
}
exit 0;