>  while($domain = $sth->fetchrow_array)
>    {
>      $PerlConfig .= <<"CONFIG";
>  <VirtualHost $ipAddr>
>      ServerName www.$domain
>      ServerAdmin webmaster@$domain
>      ServerAlias $domain
>      DocumentRoot $baseDir/www.$domain/htdocs/
>  </VirtualHost>
>  
>  CONFIG
>    }

doesn't $sth-> fetchrow_array() return a reference to an 
array, instead of a simple scalar?
	$row = $sth-> fetchrow_array;
	foreach $col ( @$row ) { ... }
?