#!/usr/bin/perl

use strict;
use warnings;

use CPAN::Mini;

CPAN::Mini->update_mirror(
   remote => "http://your.chosen.mirror/",
   local  => "/local/path/here",
   trace  => 1,
   module_filters => [ qr/fprot/i ]
);