RosettaCodeData/Task/Unix-ls/Perl/unix-ls-1.pl

opendir my $handle, '.' or die "Couldnt open current directory: $!";
print "$_\n" for sort readdir $handle; # output supposed to be sorted
closedir $handle;
Initial data commit 2023-07-01 11:58:00 -04:00			`opendir my $handle, '.' or die "Couldnt open current directory: $!";`
Data update 2026-02-01 16:33:20 -08:00			`print "$_\n" for sort readdir $handle; # output supposed to be sorted`
Initial data commit 2023-07-01 11:58:00 -04:00			`closedir $handle;`