Help for this page

Select Code to Download


  1. or download this
    while ( my $dir = shift @ARGV ) {
        my $dh = new DirHandle $dir;
    ...
            }
        }
    }