Select Code to Download

my $cleartext = whatever();
my $salt = '$1$';
$salt .= ('A' .. 'Z', 'a'..'z', '0'..'9', '.', '/')[rand 64] for 1..8;
...
else {
    # incorrect...
}