Password Generator

Some code I found out there and didn't want to loose it

#!/usr/bin/perl
# Author Kirk Brown
# http://perl.about.com/od/perltutorials/a/genpassword.htm
print generatePassword(10) . "\n";
exit;

sub generatePassword {
$length = shift;
$possible = '@$-_*&%,abcdefghijkmnpqrstuvwxyz23456789ABCDEFGHJKLMNPQRSTUVWXYZ';
while (length($password) < $length) {
$password .= substr($possible, (int(rand(length($possible)))), 1);
}
return $password
}