用 Perl 更改 Linux 系統密碼,可以使用 Unix::PasswdFile,它是處理 /etc/passwd 檔案的 CPAN module。
Perl code:

PERL:
  1. #!/usr/bin/perl
  2. use Unix::PasswdFile;
  3.  
  4. $pw = new Unix::PasswdFile "/etc/passwd";
  5. $pw->passwd("monk", $pw->encpass("My-New-Password"));
  6. $pw->commit();
  7. undef $pw;

如果想透過 Shell Script 來變更用戶密碼,可以用以下指令:

# echo $PASSWORD | /usr/bin/passwd --stdin $USERNAME