With Path::Tiny and using the children method:

use Path::Tiny 0.028;

my $dir = path ('/path/to/dir');

# Retrieve all entries except '.' and '..'
my @all  = $dir->children ();

# Alternatively, retrieve a subset - here just the perl scripts
my @perl = $dir->children (qr/\.pl$/);
[download]

Use the readdir function. To read only certain files, you can use it with grep. For example:

my $dir = '/path/to/dir';

# read all entries:
opendir DIR, $dir or die "read dir $dir - $!";
my @dir = readdir DIR;
closedir DIR;

# read only cgi scripts:
opendir DIR, $dir or die "read dir $dir - $!";
my @cgi_scripts = grep /\.cgi$/, readdir DIR;
closedir DIR;

# read all but (UNIX style) hidden entries:
opendir DIR, $dir or die "read dir $dir - $!";
my @dir = grep !/^\./, readdir DIR;
closedir DIR;
[download]