範例
use LWP::Simple;
use HTML::LinkExtractor;
use Data::Dumper;
my $input = get("http://google.com");
my $LX = new HTML::LinkExtractor();
$LX->parse(\$input);
print Dumper($LX->links);
# 或是使用 WWW::Mechanize
use WWW::Mechanize;
use Data::Dumper;
my $mech = WWW::Mechanize->new();
$mech->get( "http://google.com" );
print Dumper $mech->links;