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;

        crypt($p, $p) =~ /..(.*)/;
        my $cpass = $1;
        return $cpass;
}