Select Code to Download

sub huff1 {
    my ( $string, $codes) = @_;
...
    }
    return $ret;
}

sub dehuff1 {
    my ( $string, $code) = @_;
...
    }
    return $ret;
}