#!/usr/bin/perl
print "Enter password: ";
$pass = <STDIN>;
chop($pass);
print "Encrypted pass: ".crypt($pass, $pass);
print "\n";