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