Cute Mojo::UserAgent example

iso-639-2-lang-codes.pl

use 5.012;
use Mojo::UserAgent;
use warnings;
binmode STDOUT, ':encoding(UTF-8)';

my $ua = Mojo::UserAgent->new();
my $r = $ua->get('http://www.loc.gov/standards/iso639-2/php/code_list.php');
for my $row ($r->res->dom('tr')->each) {
    my ($three, $two, $english_name, $french_name) =
            map $_->text, $row->find('td')->each;
    say "$two $english_name" if length($two) == 2;
}