#!/usr/bin/perl
use strict;
use File::Remote;
my $rp=new File::Remote(
        rsh=>"/usr/bin/ssh",
        rcp=>'/usr/bin/scp');

$rp->open (ARPFILE,"xeng-mon01:/usr/local/router-walk/data/arp.csv")
        or die $!;

my $line=<ARPFILE>;
print $line;