Select Code to Download

#!/usr/bin/perl
...
$sniffer->run('alc0'); # uses the "best" default device

use Net::RawIP;

...
  $n->ethnew("alc0");
  $n->ethset(source => "$src_host", dest => "dst_host" );    
  $n->ethsend;