Random in perl

#! /usr/bin/perl
use strict;
my @salt = ("A".."Z","a".."z","0".."9","/",".");

my $ps = new(@salt);

print "New Ps == $$ps\n";

sub new
{
my ($class, $cleartext) = @_;
my $salt = $salt[rand @salt].$salt[rand @salt];
print "in new \$class == $class\n";
print "in new \$cleartext == $cleartext\n";
print "in new \$salt == $salt\n";
my $pw = crypt($cleartext,$salt);
print "in new pw == $pw\n";
return bless \$pw, ref($class)||$class;
}
=========== OUT PUT ============
 in new $cleartext == B
in new $salt == z4
in new pw == z4oiFk0oGlV7g
New Ps == z4oiFk0oGlV7g

=========== ==============