Select Code to Download

sub encrypt (\$$) {
    my ($self,$data) = @_;
...
    $result .= $self->finish;
    $result;
}

length-of-encrypted-line, encrypted-line, length-of-encrypted-line, en
+crypted-line, ...