'passwd' mit perl

Hallo,
ich möchte mit einem Perl-Script das passwort eines nutzers ändern, will aber nicht direkt die /etc/passwd bzw. /etc/shadow editieren. gibt es eine möglichkeit, das programm passwd zu nutzen.?
mit
open(XYZ,"|passwd username")| |die($!);
print XYZ "pwd\n";
print XYZ "pwd\n";
close(XYZ);
komme ich nicht weiter.
hat jemand von Euch eine idee????

olli (verzweifelt)