Insecure dependency in mkdir

Hejsa,

Jeg har et script hvor det der ikke virker er i denne sub:

*** START (test.pl)
sub makeHost()
{
    print "Creating HOST<br>";
    # Check if domaindir exists
    print "..Checking dir : $dompath$domname";
    if (opendir ( DIR, "$dompath$domname" )){
        closedir(DIR);
        print "<br>Renaming $dompath$domname -> $dompath$domname"."_".$mytime;
        rename("$dompath$domname","$dompath$domname"."_".$mytime) or die("Failed $dompath$domname -> $dompath$domname"."_".$mytime);
    }
    print " ... DONE<br>";
    print "..Creating and chmod directories";
    mkdir "$dompath$domname",0755;
    mkdir "$dompath$domname/htdocs",0755;
    mkdir "$dompath$domname/logs",0755;
    chown 500, $ftpgroup, "$dompath$domname";
    chown 500, $ftpgroup, "$dompath$domname/htdocs";
    chown 500, $ftpgroup, "$dompath$domname/logs";
    print " ... DONE<br>";
    # End
}
*** SLUT

Scriptet kører på min egen apacheserver med perl installeret.

Fejlen den kommer med er:
Insecure dependency in mkdir while running setuid at /www/wwdsdk/cgi-bin/post_method.cgi line 108

Linie 108 er den første med mkdir.

Scriptet kører root.root med chmod 4755

Er der nogen der kan hjælpe med at komme forbi den lille hurtle? :-)

Mvh. Ulrik