use Data::Dumper;
use File::Glob ':glob';

use strict;
use warnings;

my @files = bsd_glob("*.pl");
foreach my $file (@files) { 
    print $file, "\n";
}