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