#!/usr/bin/perl --
use strict; use warnings;
use File::Find::Rule;
use Env qw/ @PATH /;
use Data::Dump;
dd( find( 'file', 'name', qr/script/i, 'maxdepth', 1, 'in', \@PATH));
__END__