is($?,0,"$p{-name} - encrypt successful");
is(unpack("H*",$ctext),$p{-ciphertext},"$p{-name} - ciphertext expected");
open my $f, ">", "test$count.enc";
print $f $ctext;
close $f;
is($?,0,"$p{-name} - encrypt successful");
is(unpack("H*",$ctext),$p{-ciphertext},"$p{-name} - ciphertext expected");
open my $f, ">", "test$count.enc";
print $f $ctext;
close $f;