#! /usr/bin/perl -w

use Net::RawIP;

$ip_pak = new Net::RawIP;
$ip_pak->set({
        ip => {
                saddr =>"10.0.0.21",
                daddr =>"10.0.0.2"
                },
        tcp => {
                source => 443,
                dest => 443,
                psh => 1,
                syn => 1
                },
        });
$ip_pak->send;