use strict;

my $pass;

$| = 1;
print "password: ";
chomp($pass = <STDIN>);
print crypt_pass($pass), "\n";
exit;

sub crypt_pass {
        my $p = shift;
        return unless $p;

        my $salt = chr(65+rand(27)).chr(65+rand(27));
        return crypt($p, $salt);
}