my $StartDir = $ARGV[0] || die "Usage: $0 <startdir>\n";