#!/usr/bin/perl use strict; use warnings; use Net::Libdnet::Eth; my $h = Net::Libdnet::Eth->new(device => 'eth1'); print $h->get."\n"; $h->send('G'x60);
#!/usr/bin/perl use strict; use warnings; use Net::Libdnet::Eth; my $h = Net::Libdnet::Eth->new(device => 'eth1'); print $h->get."\n"; $h->send('G'x60);