#!/usr/bin/perl

# must have's!
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use URI::Escape;

use lib "/var/www/html/Pm";

my $pw = "Aardvark"; # 8 characters
my $salt = "ab";

my $pwCrypted = crypt($pw, $salt);

print "content-type: text/plain\n\n";

if (crypt("Aardvarks", $salt) eq $pwCrypted) { print "yup" } else { print "nope"; }

exit 1;