#!/usr/bin/perl

print "Please enter your new password: ";
my $p = <STDIN>; 
chop $p; 
print crypt ( $p, "pw" ), "\n";