#!/usr/bin/env perl
use warnings;
use strict;

my $file = shift or die;
print "##### WWW::Mechanize on $file #####\n";
my $html = do { open my $fh, '<', $file or die "$file: $!"; local $/; <$fh> };

use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->update_html($html);

my @links = $mech->links();
for my $link (@links) {
	print $link->url, "\t", $link->text, "\n";
}