Select Code to Download

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