Perl 版密碼產生器（新版本）！

ssaa

#!/usr/bin/perl

@list = (0..9, a..z, A..Z,'!','@','#','$','%','^','&','*','(',')');
print $list[rand(@list)] foreach (1..10);