Password generation script in Perl.