I think I've found the way of playing with tcpoptions. TCP options crafted by hand and increase the tcp header doff option. So here for 12 bytes options. It would look like this:

$data="\x01\x01\x08\x0a\x00\x13\x7d\xae\xfb\x2a\xeb\xb4\x00\x00\x00\x0
+0";


$doff='8';

sub initial_tcp
        {


        $n = Net::RawIP->new({
           ip  => {
                   saddr => $srcip,
                   daddr => $dstip,
                },
           tcp => {
                   source => 80,
                   dest => 443,
                   syn  => 1,
                   doff => $doff,
                   data => $data,
                },
[download]