my $some_dir = 'c:/temp';

opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
my @dots = readdir(DIR);
closedir DIR;

print "Linha: $_\n" for @dots;