Select Code to Download

# DO NOT USE THIS WITHOUT YOUR NET ADMINS' PERMISSION!
# YOU PROBABLY WON'T HURT ANYTHING, BUT YOU'LL UPSET THEM
...
foreach ( sort keys %ARP ) {
  print sprintf "MAC for %-15s is %17s.\n", $_, $ARP{$_};
}