check missing modules.

missing_modules.pl

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Data::Dumper;

die 'no argument.' if scalar @ARGV < 1;
my $check_path = $ARGV[0];
my $uses = `fgrep -r 'use ' $check_path | sed -e 's/.*use \\([A-Z][a-zA-Z0-9:]\\+\\).*/\\1/' | grep -v '^/' | sort | uniq`;

my @modules = split /\s/, $uses;
print "#-- missing modules list --\n";
for my $module (@modules) {
    chomp $module;
    eval("use $module;");
    if ($@) {
        print "cpanm $module\n";
    }
}
print "#--------------------------\n";