Genera password con ayuda de perl

#!/bin/perl

@chars = ( "A" .. "Z", "a" .. "z", 0 .. 9, qw(! @ $ % ^ & *) );
print join("", @chars[ map { rand @chars } ( 1 .. 8 ) ]);


Nota: Cortesia de Perl Cookbook.