让Perl产生随机密码的方法应该有很多种，在这里只写了个简单的，满足需要就可以了。其实也就是产生一个字符串而已。如下:

#!d:/perl/bin/perl.exe

@a=(0..9,'a'..'z','A'..'Z','#','$','%','*','!','@','^','(',')');
$passwd=join '',map{$a[int rand @a]} 0..9;
say $passwd;

某次的运行结果：%#yk*z8A@3

在这里产生了10位比较复杂的字符串，其它的不说了。