...
use Net::Frame::Dump::Online;
...
my $oDump  = Net::Frame::Dump::Online->new(
                dev             => 'eth0',
);
...
$oDump->start;

# And finally, waiting for the response
   until ($oDump->timeout) {
       if (my $recv = $oSimple->recv($oDump)) {
        print "RECV:\n".$recv->print."\n";
         last;
      }
   }
...