Select Code to Download

sub c2_out {
    my( $fh, $x, $y )= @_;
...
    return $x   if  ! defined $z;
    return( $x, $z<<4 | $y>>4 );
}

{
    my @nybbles;
...
        return;
    }
}