Select Code to Download

binmode(S);
@Data=("asd");
$binary=pack("C/A*",@Data);        # its working fine
print S $binary;

use Convert::Binary:C;

...
$data = {type => 3,*ver => "asd",};    # it gives error
$binary = $c->pack('R', $data);
print S $binary;