use Crypt::RandPasswd;
print 'Password: ',Crypt::RandPasswd->chars(9,9), "\n";