opendir(DH, ".") or die("ack - $!");
my @listing = readdir(DH);
closedir(DH);
print "@listing\n";

__output__

. .. foo bar baz quux