Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
use 5.012;
...
   exit(EXIT_SUCCESS);
}
END_OF_C_CODE
  2. or download this
    one.txt
two.txt
  3. or download this
    if (! defined $ARGV[0]){
    print "Usage: script.pl <directory>\n";
...
my $str = listfiles($dir);

...