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

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

use Log::Log4perl ':easy';
use WWW::Mechanize::Chrome;
Log::Log4perl->easy_init($WARN);
my $mech = WWW::Mechanize::Chrome->new( headless => 1);
$mech->update_html($html);

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