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