use NET::RawIP;
my $teste=Net::RawIP->new({
                  ip => {
                          daddr => 'www.leninja.com.br',
                       },
                  
                  tcp => {source =>'80',
                          dest => '80',
                          syn    => 1,
                         
                         },
                  });
$teste->send;