#!/bin/perl

# usage cat filename | netarp.pl 

while (<>) {

  chop;
  split(/:/);
  $host = @_[2] ;
  @names = split(/\,/, $host ,5);
  $name = @names[0];
  $_ = $name ; $name =~ s/ //g;
#  print "\t$name" 
  system ("/usr/etc/ping -c 1 $name  >> /dev/null") ; 
  open (ARP, "/usr/etc/arp $name |");

  while (<ARP>) {

    chop;
    split;
    $addr = @_[3];
    
    if ($addr ne "no"  && $addr ne "\(incomplete\)") { 
      print "$addr\t$name\n"; 
    }
  }
}