opendir DIR, '.' or die "Cannot open current dir. $!";
print("$_\n") foreach readdir DIR;
closedir DIR;