sub dirname { print "Entering sub dirname\n"; my $word = "site"; my $counter = 1; my $name; do { $name = $word . "_" . $counter++; } while( -e $name); mkdir $name, 0755 or warn "Cannot make dir $name: $!"; print "$name \n"; }