explore-digg-with-mojolicious

#!/usr/bin/env perl

use strict;
use warnings;

use Mojo::Client;

my $client = Mojo::Client->new;

my $news = 'http://digg.com';
$client->max_redirects(3);
$client->get($news)->res->dom->find("h3 > a.story-title")->each(
    sub {
        my $a = shift;
        print $a->text, "\n";
        print Mojo::URL->new->host($news)->path($a->attrs->{href}), "\n\n";
    }   
);