BEGIN {
    my $counter = 1;
    sub DirPP {
        use Errno qw/ EACCES /; # permission denied
        my $word    = "site";
        my $name ;
        my $made = 0;
        while(1){
            $name = sprintf '%s%3d', $word, $counter;
            last if not $made = mkdir $name, 0755 ;
            die $! if $! == EACCES;
        }
        return $name if $made;
        return;
    }
}