$crypted_pass = crypt $password, substr(crypt(rand, "AA"), 2, 2);
   system("ssh", "-l", "root", "www.perlmonks.com", 
      "/usr/sbin/usermod '$user' -p '$crypted_pass'") == 0
      or die "...";