use Net::RawIP
($src,$dst,$port) = @ARGV;
   $a = new Net::RawIP;
$a->set({ip => {saddr => $src,daddr => $dst},tcp => {source => $src_port,dest => $port, syn => 1}});
      $a->send;