Redirection af sekundære domænenavne

Skal det være perl?
Så vidt jeg husker er der et par løsninger på http://www.netcoders.dk

Her kommer den - jeg aner intet om perl, men det lader til at kunne gøre det. Kald skidtet index.cgi og du er flyvende:

#!/usr/bin/perl
$index = \'http://www.din.rigtige.index.html\';
$domain = \'ditdomæne.dk\';

($f1,$f2,$f3,$f4)=split (/\\./,$ENV{\'HTTP_HOST\'});
$check1 = \"$f3\\.$f4\";
if ($check1 eq \"$domain\"){
$username = \"$f2\";
}
if ($username eq \'\'){
$username = \"$f1\";
}
if ($username eq \'www\'){
print \"Content-type: text/html\\n\\n\";
print \"<frameset rows=\'*\'>\";
print \"<frame name=\'footnotes\' src=\'$index\'>\";
print \"</frameset>\";
}
if ($username ne \'www\'){
print \"Content-type: text/html\\n\\n\";
print \"<frameset rows=\'*\'>\";
print \"<frame name=\'footnotes\' src=\'http://$domain\\/$username\'>\";
print \"</frameset>\";
}
print \"Content-type: text/html\\n\";
print \"Location: $redirect\\n\\n\";

exit;

Tak for scriptet. Den var simpelthen lige i øjet.
Tusind tak  Per Jørgensen