if(not defined $SendARP) {
die "Kan de API SendARP niet gebruiken/vinden: $!\n";
exit;
}

my $inet_addr = new Win32::API("wsock32", "inet_addr", "P", "N");
if(not defined $inet_addr) {
die "Kan de API inet_addr niet gebruiken/vinden: $!\n";
exit;
}

my $mac=pack('CCCCCC',0);

print "Gebruik e of exit als IP om te stoppen.\n";

while(1) {
print "IP? ";
my $ip_address = ;
chomp($ip_address);
$ip_address =~ tr/A-Z/a-z/;
print "—————–\n";
if($ip_address eq 'e' or $ip_address eq 'exit' or $ip_address eq 'quit') { last }
if($SendARP->Call($inet_addr->Call($ip_address),0,$mac,pack('L',6))==0) {
my $mac_address=join ":", map {uc sprintf("%02lx", $_%256 )} unpack('CCCCCC',$mac);
print "IP: $ip_address\n";
print "MAC: $mac_address\n";
print "—————–\n\n";
} else {
print "Geen antwoord van $ip_address";
print "—————–\n\n";
}
}

print "Danku om IP2MAC te gebruiken!";

——
It's in dutch but, whatever!
I have made the arp.pl script a little better, now it asks for the IP if you run the script. It also has an infinite loop(unless you use the option e, exit or quit) so you can always keep IP2MAC' ing!