Hola PERL!!!

[Daniel Sol Llaven]

Bueno, tu pregunta es de hecho muy sencilla.

Por regla general, todo programa que quieras que mande su entrada a otro 
solo requiere ser ejecutado con un open; en este caso:

open(PASSWORD,"passwd $usuario");
print PASSWORD "$NuevoPassword\n$NuevoPassword\n";
close PASSWORD;

Notaras que no puse el viejo password, lo que pasa es que para ahorrarte 
problemas terecomiendo que si le vas a meter mano a los passwords de tu 
sistema sea con permiso de root (en la ejecución del programa).

Si no quieres meter mano al /etc/password o /etc/shadow (segun SO) lo que 
puedes hacer es usar la fincion crypt(), viene en la referencia de Perl 
el programa que codifica un password (en la sección PERLFUNC), asi que no 
debes tener problemas para hacerlo, eso sí mucho cuidadito con querer 
andar clackeandolos !eh!.

Como ya he recomendado en ocaciones anteriores, si no sabes donde 
conseguir la referencia de Perl asomate en la CPAN.

Suerte!!!

Bolo Lacertus: lacertus@servidor.dgsca.unam.mx			==~\___\
http://lince.dgsca.unam.mx:8080/cgi-bin/daniel/hola		 =__vvvv
-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GCS/GE/GED d>d? s:+ a-- C++>+++$ US+++$ P++++$ L E? W++>+++ N++ o? K- 
w--- O !M V-- PS+ PE-- Y+ PGP++ t+ 5? X- R@ tv-- b++@- DI++ D+ G++ e+>++ 
h* r++(*) z+ 
------END GEEK CODE BLOCK------