Question

How can you get a raw socket in Perl, and then what’s the best way to built a packet for use with it?

Answer 1

Looks like Net::RawIP was what I was looking for:

use Net::RawIP; $a = new Net::RawIP; $a->set({ip => {saddr => 'my.target.lan',daddr => 'my.target.lan'},          tcp => {source => 139,dest => 139,psh => 1, syn => 1}}); $a->send;  $a->ethnew('eth0'); $a->ethset(source => 'my.target.lan',dest =>'my.target.lan');       $a->ethsend;  $p = $a->pcapinit('eth0','dst port 21',1500,30); $f = dump_open($p,'/my/home/log'); loop $p,10,\&dump,$f;