Help for this page
Select Code to Download
Select
or
download this
my $StartDir = shift @ARGV or die "Usage: $0 <startdir>\n";