* Jonas Meurer:
> #!/usr/bin/perl -w
> if (@ARGV == 2) {
> $file="/etc/exim4/passwd";
> open(PWD,">>$file") || die("Couldn't append to file '$file': $!");
> print PWD $ARGV[0] . ":" . crypt($ARGV[1], q{$1$.}) . "\n";
> close(PWD);
> }
Ahem, passing passwords on the command line isn't a terribly good
idea.