Select Code to Download

use strict;
use warnings;
...

CPAN::Shell->install($1) if $item->{title} =~ /-\s(\S+)$/;

use strict;
use warnings;
...
    XMLin( get( 'http://perladvent.org/perladventone.rdf' ) )
        ->{channel}{item}{title}
);