Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
$topdir= shift || '.';
get_sub_dirs($topdir);
exit;
  2. or download this
    #!/usr/bin/perl
use strict;
...
   }
}