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;
        }

##</code><code>##

./tcp-syn.pl
Useless use of numeric gt (>) in void context at ./tcp-syn.pl line 38.
Can't locate auto/Net/RawIP/opset.al in @INC (@INC contains: /etc/perl /usr/lib/perl5/vendor_perl/5.8.8/i686-linux /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl/5.8.6 /usr/lib/perl5/vendor_perl/5.8.6/i686-linux /usr/lib/perl5/vendor_perl/5.8.7 /usr/lib/perl5/vendor_perl/5.8.7/i686-linux /usr/lib/perl5/vendor_perl /usr/lib/perl5/site_perl/5.8.8/i686-linux /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/lib/perl5/5.8.8/i686-linux /usr/lib/perl5/5.8.8 /usr/local/lib/site_perl .) at ./tcp-syn.pl line 32