Script en Perl para crear virtualhosts

Si administras algún servidor Linux a través del terminal es posible que de vez en cuando tengas que crear un virtualhost para dar servicio a una nueva web. Para automatizar este trabajo, hace tiempo hice este pequeño script en Perl, con el que ahorrarás tiempo. Lo único que has de hacer es editarlo y cambiar el dominio, usuario, grupo, password y la IP.

El script realiza las siguientes tareas:
-Crea el grupo.
-Crea el usuario.
-Crea la entrada en el fichero /etc/hosts.
-Crea los directorios para el dominio.
-Pone los permisos y propietarios correspondientes a los nuevos directorios.
-Genera una pagina indice de prueba.
-Crea la entrada virtualhost en el fichero de apache vhost.conf
-Recarga apache.

El script lo tienes disponible en:

Github: https://github.com/vicentegarcia/virtualhost-perl