get latest local::lib archive

get_latest_local_lib.pl

#!/usr/bin/perl
use strict;
use warnings;

use WWW::Mechanize;

my $wget = 'wget';
my $authors_url = 'http://search.cpan.org/~apeiron/';

my $mech = WWW::Mechanize->new;
my $res  = $mech->get($authors_url);
check_response($res, "failed get auhor's page");

$res = $mech->follow_link(url_regex => qr/^local-lib-1.\d+/);
check_response($res, "failed get local-lib page");

my $link = $mech->find_link(text => 'Download');
my $url  = $link->url;
die "got unexpected url:$url"
    unless $url =~ ?^/CPAN/authors/id/A/AP/APEIRON/local-lib-1\.\d+\.tar\.gz$?;
system "$wget " . $link->url_abs;

sub check_response {
    my ($res, $msg) = @_;
    if ( !$res->is_success || $res->code != 200 ) {
        die $msg;
    }
}