sub make_apachectl { my $apachectl = shift; my $dname = shift; my $apachectl_template = "/home/www/bin/files/bin/apachectl"; open( TEMPLATE, "<", $apachectl_template ) || die "Failed to open apachectl template: $!\n"; open( TARGET, ">", $apachectl ) || die "Failed to create apachectl: $!\n"; while(