Get href links from an URL using Mojo::UserAgent

www-get-links.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;
use Mojo::URL;
use Mojo::UserAgent;

my $ua = Mojo::UserAgent->new->max_redirects(3);
$ua->transactor->name('Mozilla/5.0 (Linux; Android 4.4; Nexus 5)');
my $url = Mojo::URL->new($ARGV[0] || 'http://localhost');
my $tx = $ua->get($url);
if (my $res = $tx->success) {
	my $links = $res->dom->find('a')->map(attr => 'href')->to_array;
	print Dumper $links;
}
else {
	my $err = $tx->error;
	die "$err->{code} response: $err->{message}" if $err->{'code'};
	die "Connection error: $err->{message}";
};