Select Code to Download

use File::Basename;

my @basenames = map basename($_),
my @result = map { chomp; $_ } `find '.' -type f -print -name '*.pl'`
  or die "No scripts found - $! \n";

use File::Basename;
use File::Find::Rule;
...
my @basenames = map basename($_),
my @result    = find(file => name => "*.pl", in => ".")
  or die "No scripts found - $! \n";