Script para creación remota de usuarios de correo zimbra usando perl

***********************************************************************************

#!/usr/bin/perl -w

# Script para crear cuentas de correo electrónico automaticamente a zimbra 6.0.5
# para la USAC, pasando argumentos de php de rmendizabal-at-usac.edu.gt
# y enviando el comando vía ssh con encripcion asimetrica hacia mail.usac.edu.gt
# Autor: Jaime Cabrera jaimeco-at-usac.edu.gt
# Version: 1.0
# Fecha creacion: 05JUL2010
# Fecha ultima modificacion: 05JUL2010

#print "@ARGV\n"; # Todos los argumentos pasados con "".
#print "$ARGV[0]\n"; # Cuenta en la forma usuario@dominio.
#print "$ARGV[1]\n"; # contraseña.
#print "$ARGV[2]\n"; # displayName.
#print "$ARGV[3]\n"; # givenName.
#print "$ARGV[4]\n"; # sn.
#print "$ARGV[5]\n"; # street.
#print "$ARGV[6]\n"; # telephoneNumber.
#print "$ARGV[7]\n"; # postalCode. # Acá coloco el número de regper.

#print "\n";
$c_='"';
$crear = "ssh -i /home/cuca/rsa-keys/llave-zimbra cuca\@mail.usac.edu.gt '/opt/zimbra/bin/zmprov ca $c_$ARGV[0]$c_ ";
$crear = $crear . " $c_$ARGV[1]$c_ displayName $c_$ARGV[2]$c_ givenName $c_$ARGV[3]$c_ sn $c_$ARGV[4]$c_";
$crear = $crear . " street $c_$ARGV[5]$c_ telephoneNumber $c_$ARGV[6]$c_ postalCode $c_$ARGV[7]$c_ zimbraPasswordMustChange TRUE' ";

#print "$crear\n\n";

# Creando la cuenta
system($crear);

# Logs sobre la creación dirigidos a correosnuevos.log
$FECHA = `date +%d%b%Y_%H:%M:%S`;
chomp($FECHA);
open(LOG,">>correosnuevos.log");
$bitacora = "$FECHA --> $ARGV[0], $ARGV[2], $ARGV[5], Tel: $ARGV[6].";
print LOG "$bitacora\n";

exit 0;

******************************************************************************

El script tiene la peculiaridad que el usuario debe cambiar su contraseña al ingresar la primera vez, con esto se garantiza la confidencialidad.