off-topic: script en perl

[aury]

Hola lista...
Estoy intentando hacer un script que permita cambiar el
password del usuario. La idea es que el password sea
generado por un random con este script y luego se llame a
/usr/bin/passwd para que haga las modificaciones.

La parte del random todavia no esta hecha por lo que el
password se lo paso con una variable. Si ejecutan el script
veran que se llama a /usr/bin/passwd pero no funciona: no
recibe el nuevo password. 
Que se les ocurre?

#--------------------------------------------------------
#! /usr/bin/perl

# Autor: Aureliano
# Fecha:
# Descripcion:

$passwd="/usr/bin/passwd";
print("Usuario: ");
$user=<STDIN>;
$newpass="ho1234la";
open(PASSWD,"$passwd $user |") or die "No se puede ejecutar
passwd\n";

while(<PASSWD>){
 sleep(5);
 print("$newpass");
}
#--------------------------------------------------------

PD: conocen alguna lista de perl en castellano.

Saludos,
aureliano.
---------------------------------------------------------
para salir de la lista, enviar un mensaje con las palabras
"unsubscribe ayuda" en el cuerpo a majordomo en linux.org.mx