my $start_dir = shift || '.';