This works fine for me:

#!/usr/bin/perl -w

use strict;
use Fcntl qw (:flock);
use Term::ReadKey;
use Crypt::CBC;

use vars qw($ck);
$ck = "0123456789abcdef";


newpass();

sub newpass{
  print"Enter new password: ";
  ReadMode 2;
  my $p1=<STDIN>;
  chomp $p1;
  ReadMode 0;
  print "\nEnter it again (for verification): ";
  ReadMode 2;
  my $p2=<STDIN>;
  chomp $p2;
  ReadMode 0;
  print"\n";
  my $crypt=Crypt::CBC->new({'key'=>$ck,'cipher'=>'Blowfish'});
  my $d1=$crypt->encrypt_hex($p1);
  #Debug 
  print "$d1\n";
  my $d2=$crypt->encrypt_hex($p2);
  #Debug 
  print "$d2\n";
  if($d1 eq $d2){ print "Match.\n" }else{
    print "No match.\n"};

}
[download]

Does it work for you?