sub dirname {
  my $word = "site";
  my $counter = 1;
  my $flag = 1;
  while ($flag) {
    my $name = "$word" . "_" . "$counter";
    if ( -e -d $name) {
      $counter++;
      next;
    }
    else {
      mkdir $name, 0755 or warn "Cannot make dir $name:  $!";
      $flag = '0';
    }
    print "$name \n";
    $name;    # "Useless use of private variable in void context"
  }
}