#!/usr/bin/perl -w

use strict;
use Net::RawIP;
$a = new Net::RawIP({ip => {saddr => '10.1.2.60', daddr =>'10.1.2.70'},
                tcp => {source => 1234, dest => 80, syn => 1}});
$a->send(0, 3);
print "[FINISHED]\n";