sub initial_tcp
        {

        $n = Net::RawIP->new({
           ip  => {
                   saddr => $srcip,
                   daddr => $dstip,
                },
           tcp => {
                   source => $src,
                   dest => $dst,
                   syn  => 1,
                },

        });
           $n->opset(tcp =>{
                           #Window Scale 9 x512
                           type => 0x0303,
                           data => 0x09,
                         }
                         );
           $n->send;
           $n >ethnew($intf);
           $n->ethset(source => $smac, dest => $dmac);
           $n->ethsend;
        }