Select Code to Download

my $p = "howdy";
my $salt = substr($p,0, 2); #define salt however you want
my $crypted = crypt($p, $salt);
print "Crypted form of $p is $crypted\n";

my $p="ho8dIXKikSTi2"; #better than displaying actual password
my $password=param('password');
...
} else {
  #try again
}