my $domain = $ARGV[0]; my $new_dir = $ARGV[1]; my $template = " ServerName ".$domain." ServerAdmin webmaster@localhost DocumentRoot /home/anon/".$domain." Options FollowSymLinks AllowOverride All Options Indexes FollowSymLinks MultiViews AllowOverride All Order allow,deny allow from all ErrorLog ${APACHE_LOG_DIR}/error.log # Possible values include: debug, info, notice, warn, error, crit, # alert, emerg. LogLevel warn CustomLog ${APACHE_LOG_DIR}/access.log combined "; #sysopen(FH, "/etc/apache2/sites-available/".$domain, O_CREAT|O_O_RDWR) or die "error: $!"; open(FH, "> /etc/apache2/sites-available/".$domain); print FH $template; close(FH); system("ln /etc/apache2/sites-available/".$domain." /etc/apache2/sites-enabled/".$domain); if (defined $new_dir && $new_dir == 1) { system("mkdir ~/".$domain); } open(FHOSTS, ">> /etc/hosts"); print FHOSTS "127.0.0.1 ".$domain."\n"; close(FHOSTS); system("sudo service apache2 restart"); print "Success!\n";