#!/usr/bin/perl use strict; use warnings; use URI; use lib "lib"; use Web::Scraper; my $uri = shift @ARGV or die "URI needed"; my $scraper = scraper { process "a[href]", "urls[]" => '@href'; result 'urls'; }; my $links = $scraper->scrape(URI->new($uri)); use YAML; warn Dump $links;