my $plaintext = 'P';
    
    my $key = pack("H16", "0123456789ABCDEF");
    print("$plaintext\n");

    my $cipher = Crypt::CBC->new(
	-cipher => 'DES',
	-key    => $key,
    );

    my $ciphertext = $cipher->encrypt($plaintext);
    print("$ciphertext\n");

    my $recovered = $cipher->decrypt($ciphertext);
    print("$recovered\n");