# if no argument given, default to current directory
my $startdir = cwd();
@ARGV = $startdir unless @ARGV;
# if argument given , overwrite cwd
$startdir = "@ARGV";
# convert /usr/bin to _usr_bin for filename
($startdir = $startdir) =~ s/\//_/g;