use File::Glob ':globally';</br>
my $dir = '/my/dir';
my @files = <$dir/*>;
print "$_\n" for @files;