performance-tests/bench/read_files.pl

   1 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
   2     & eval 'exec perl -S $0 $argv:q'
   3     if 0;
   4
   5 # -*- perl -*-
   6
   7 use autodie;
   8
   9 opendir my $dir, ".";
  10 my @files = readdir $dir;
  11 closedir $dir;
  12
  13 foreach (@files) {
  14   print "$_\n";
  15 }