#!/usr/bin/perl

use Net::RawIP;
 
$n = Net::RawIP->new({
                      ip  => {
                              saddr => '192.168.1.1',
                              daddr => '192.168.1.2',
                             },
                      tcp => {
                              source => 139,
                              dest   => 139,
                              psh    => 1,
                              syn    => 1,
                             },
                     });
$n->send;
$n->ethnew("eth0") or die "Net::RawIP->ethnew failed"; # error here
$n->ethset(source => 'my.target.lan', dest =>'my.target.lan');    
$n->ethsend;