Select Code to Download

sub Pack {
    my $type = $_[0];
...
    $_[1] = pack( packing($type), $_[1]);   
    return $_[1];
}