use strict;
use warnings;

my $some_dir = "/tmp";
opendir(DIR, $some_dir)
  or die "can't opendir $some_dir: $!\n";
my @files = readdir(DIR);
closedir DIR;
print join "\n", @files;