如何得到DES加密后的密文？

如何得到DES加密后的密文？
use Crypt::DES;
use Crypt::CBC;

my $cipher = new Crypt::CBC(pack("H8","AuthU911"),"DES");
my $ciphertext = $cipher->encrypt("apple");
my $plaintext = $cipher->decrypt($ciphertext);
print "$ciphertext","\n";
print "plaintext=$plaintext", "\n";

输出$ciphertext不是真正加密后的密文，我如何才能得到加密后的密文？