my $dir = 'your directory path';
local *DIR;
opendir(DIR, $dir) or die "Failed to open $dir: $!\n";
my @files = readdir(DIR);
print join("\n", @files), "\n";