perl 隨機產生 password 密碼

#!/usr/bin/perl

@list = (0..9, a..z, A..Z,'!','@','#');
#@list = (0..9, a..z, A..Z,'!','@','#','$','%','^','&','*','(',')');
$range = 71;

for ( 1..10 )
{
    $pass .= $list[int(rand($range))];
}

print "$pass\n";