#!/usr/bin/perl -w

use Net::Telnet

open(FH, "host_list_file") || die "Yikes $!";
while (<FH>) {
$t = new Net::Telnet(Timeout => 2810,
                         Prompt  => '/%/',
                         Host    => 'ip address' );

$t->login( "user", "password" );
{
        $t->cmd( "ndd /dev/arp arp_cache_report" );
}
$t->close;
[download]