use File::Basename;
use File::Find::Rule;

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