#!/usr/bin/perl -w # $Id$ use strict; use warnings; my $module = shift @ARGV; die 'Provide a module name' unless $module; print "Testing $module\n"; opendir my $DIR, $ENV{'HOME'} . '/perl' or die 'Cannot read perl directory'; my @perls = sort grep { m/^\d/ } readdir $DIR; closedir $DIR; foreach my $perl (@perls) { my $cpan = $ENV{'HOME'} . "/perl/$perl/bin/cpan"; system("$cpan -t $module"); } print '='x64, $/;