Om skrivning af script

Jeg søger en der kan skrive dette script om så det virker i apache2,  scriptet er fundet på http://www.linux-support.dk/?id=4 og virker kun i apache 1,3

<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>