search module

gistfile1.pl

#!/usr/bin/env perl
use common::sense;

my $module = $ARGV[0];
$| = 1;

die "wrong module name: $module" if $module !~ /^[A-Za-z0-9:]+$/;

my @parts = split "::", $module;
$parts[$#parts] .= ".pm";

for my $search_dir (@INC) {
    my $fname = join "/", $search_dir, @parts;
    if (-f $fname) {
        say $fname;
        my $read_key = <STDIN>;
        exec "vim " . $fname;
    }
}

warn "$module is not found";