ho trovato questo script che mi ritorna molto utile per la generazione di vhost dinamici nel file httpd però sto incontrando diversi problemi, mi restituisce non pochi errori e di perl proprio non ne capisco un'acca

ecco il codice :

codice:
<perl>
#!/usr/bin/perl -w
local ($ip,$host,$admin,$vroot,$aliases);
local ($directive,$args);
open (FILE,"/var/www/vhosts/myhost.it/conf/vhost-perl.conf");
while (<FILE>) {
       next if /^\s*(#|$) / ;
       if (/^d+/) {
       ($ip,$host,$admin,$vroot,$aliases)=split /\s*,\s*/, $_;
          $VirtualHost{ip}= {
                  ServerName =>$host,
                  ServerAdmin => $admin,
                  DocumentRoot => "/var/www/vhosts/myhost.it/subdomains/beta/httpdocs",
                  ErrorLog => "logs/".$host."_error.log",
                  TransferLog =>"logs/".$host."_access.log"
               };
               $VirtualHost {$ip} {ServerAlias} =$aliases if $aliases;
               $VirtualHost {$ip} {Port} =$1 if ($ip=~/:(\d+)$/);
       } elsif ($ip) {
               ($directive,$args)=split / /, $_,2;
               $VirtualHost {$ip} {$directive}=$args;
       }
}
close ("file");
_END_
</perl>