HTML::LinkExtor, links(), parse_file()

#!/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;