Help for this page

Select Code to Download

Select or download this

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