perl - Perl RawIP CWR标志

我正在使用net：：rawip发送带有特定tcp标志的数据包。有办法设置CWR标志吗？
TCP Protokey“res2”设置ECE标志，但“res1”似乎设置了ns标志：

$n = Net::RawIP->new({
ip  => {
        saddr => 'my.target.lan',
        daddr => 'my.target.lan',
       },
tcp => {
        source => 123,
        dest   => 123,
        res1   => 1,
        res2   => 1,
        fin    => 1,
        syn    => 1
       }
});

下面是对数据包标志的Wireshark捕获：

最佳答案

res2是两位宽。

res2 => 1   # ECE
res2 => 2   # CWR
res2 => 3   # ECE & CWR

（在big endian机器上可能正好相反，但我对此表示怀疑。）
（res1是Wireshark捕获中标记为“保留”和“nonce”的4位。）