use strict;
use warnings;
use Net::RawIP;

my $n = Net::RawIP->new(
    {
        ip => {
            saddr => '192.168.1.33',
            daddr => '192.168.1.1',
        },
        tcp => {
            source  => 80,
            dest    => 22222,
            seq     => 12345,
            rst     => 1,
        },
    }
);
$n->send;
$n->ethnew("wlan0");
$n->ethset( source => '00:11:22:33:44:55', dest => '00:12:23:34:45:56' );
$n->ethsend;