#!/usr/bin/perl
use strict;
use warnings;

open IN, "<", "netapps" || die "Can't open file";

my $output = '';
while (<IN>) {
   chomp;
   $output .= qx( rsh $_ snapmirror status 2>&1 );
}