#!/usr/bin/perl -w
use strict;
use File::Basename;

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

print $_, $/ for @basenames;