perl如何实现转换到二进制？

用perl实现一个socket客户端，服务端接收用二进制解析，我现在使用以下方法：

    my $sock = IO::Socket::INET->new(
        PeerAddr => $addr,
        PeerPort => $port,
        Proto    => 'tcp')
        or die "Can't connect: $!\n";
    $buf = $sock->send('xxxxxxxxx\n');

发送的消息有数字有字符，消息如何转换为二进制由其是字符

pack unpack