my $startdir = $ARGV[0] || cwd();
$startdir =~ s/\//_/g;