Help for this page

Select Code to Download


  1. or download this
    a:   for(@infiles) {
b:      $_ =~ s/^(\.|\.\.)$//;
c:      if (-d $_) {
  2. or download this
    #!/usr/bin/perl -w

...
   print "    $_\n";
   }