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