use strict;

my $inp;

srand(time() ^ $$);

print "Please enter password:\n";
system "stty -echo";
chop($inp= <STDIN>);
print "\n";
system "stty echo";
my $i= chr(rand(26)+ord('a')) . chr(rand(26)+ord('a'));
print crypt( $inp,$i ),"\n";