perl中的缓冲区操作

我正在使用perl recv调用通过网络接收数据包。我能够接收数据包，但数据包的格式是这样的，即数据包的前两个字节传递有关消息其余部分的信息。我在perl编程方面没有太多经验，我被困在如何将接收到的数据包的前两个字节复制到另一个变量中。

您想要：

my ($byte1, $byte2) =  unpack('(a1)2', $packet);