1 #!/usr/local/bin/perl
 2 
 3 opendir my $dh, "." or die "Error: read directory failed.";
 4 my @filedirs = readdir $dh;
 5 closedir $dh or die "Error: close directory failed.";
 6 
 7 for my $f ( @filedirs ) {
 8   print $f, "\n";
 9 }
10 
11 exit 0;