how to set tcp options (MSS value) in Net::RawIP - perl

Question

Can i set Maximum segment size to some value when using Net::RawIP?
I am trying the below code but don't know how can i set MSS value in TCP options to custom value.
#!/usr/bin/perl
use Net::RawIP;
$packet = new Net::RawIP;
$packet->set({
ip => {
saddr => '192.168.122.128',
daddr => '192.168.122.1'
},
tcp => { source => 2323,
dest => 8080,
syn => 1,
seq => 100,
ack_seq => 0,
data => 'hello world'
}
});
$packet->optset(tcp => { type => [ (2) ], data => [ (10) ] });
$packet->send(0, 1);

Answer 1

According to the documentation:
optset(OPTPROTO => { type => [...],data => [...] },...)
[...] The value of the data also is an array reference. This array must be filled with strings which must contain all bytes from a option except bytes with type and length of an option.
(emphasis added)
You're passing a reference to an array of integers; you need to pass a reference to an array of strings. Try something like this:
$packet->optset( tcp => { type => [ 2 ], data => [ "\x00\x0A" ] } );
The length of the maximum segment size field is 4, which includes one byte for the kind field, one byte for the length field, and two bytes for the data itself, so you need to pass a two-byte string as above.