sub random_password {
    my $length = 8 + int(rand(5));
    my @alpha = ( 1 .. 9, 'a' .. 'z', 'A' .. 'Z',
                  qw( ! @ $ % & * + - . , ) );
    return join('', map { $alpha[rand(@alpha)] } ( 1 .. $length ));
}
[download]

Other ideas or takes? I poked around the Super Search a bit but nothing jumped out at me. This seems awfully simple to resort to importing an entire module. Or is it? In this case it would be for temporaries issued to users via email till they redo their own and it would expire in, say, 10 minutes.