Select Code to Download

sub encrypt {
    my($proto, $target, $data) = @_;
...
        Armour => 1,
    );
}

    $ring->find_keyblock_by_uid($id)
            or die "Find keyblock failed: @{[ $ring->errstr ]}";