1#!/usr/bin/perl 2use strict; use warnings; 3 4my $ip = shift or die("Pass IP"); 5 6use Net::Libdnet::Arp; 7 8my $h = Net::Libdnet::Arp->new; 9my $success = $h->delete($ip); 10$success ? print "Ok\n" : print "Failed\n"; 11