5 lines
133 B
Perl
5 lines
133 B
Perl
opendir my $handle, '.' or die "Couldnt open current directory: $!";
|
|
while (readdir $handle) {
|
|
print "$_\n";
|
|
}
|
|
closedir $handle;
|