Hvorfor virker denne kode ikke?

Hej eksperter.

Jeg har fundet denne glimrende guide til at sætte subdomæner op i apache, men den virker ikke http://linux-support.dk/index.php?id=4

Kode:
<Perl>
use DBI;

# Declare and initialize variables
$host = 'localhost';
$db = 'domains';
$db_user = 'apache';
$db_password = '';
$server_admin = 'root@linux-support.dk';

# Connect to the requested server
$dbh = DBI->connect("dbi:mysql:$db:$host", "$db_user", "$db_password");
$sth = $dbh->prepare("SELECT domain, docroot FROM vhosts ORDER BY domain ASC");
$sth->execute();

while (($domain, $docroot) = $sth->fetchrow_array()) {
system("/bin/mkdir -p $docroot");
system("/bin/mkdir -p $docroot/logs/");
push @{$VirtualHost{'*'}}, {
ServerName => "$domain",
ServerAlias => "www.$domain $domain",
ServerAdmin => "$server_admin",
DocumentRoot => "$docroot",
ErrorLog => "$docroot/error.log",
CustomLog => ["$docroot/access.log", "combined"],
};
}
</Perl>

den laver ingen fejl, men den virker heller ikke.

Jeg har oprettet følgende i databasen:
id  domain  docroot
1    wh4u.dk  /www/webhost4u/users/goldie

det skulle gerne resultere i at dette subdomæne virker http://goldie.wh4u.dk men det virker ikke

jeg kører apache 1.3, med libapache-mod-perl.

Nogen som kan hjælpe?

Hvis der skal $$ på bordet så skriv lige.

Mvh
Michael Guldhammer