Select Code to Download

#!/usr/bin/perl -w
...
  print "IP address $ipad has MAC Address $macad\n";
}

($ipad,$macad,$hwtype,$flags,$mask,$device) = split(/\s+/,$linein);