#!/usr/bin/perl
print "Enter encrypted pass :";
$encpass = <STDIN>;
chop($encpass);
print "OK, now enter plaintext :";
$pass = <STDIN>;
chop($pass);
if (crypt($pass, $encpass) eq $encpass) {
  print "match\n";
} else {
  print "no match\n";
}