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


$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,
                },