#!/usr/bin/perl

use strict;
use warnings;

use File::Remote;
use Symbol;

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

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

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