#!/bin/bash
while read command ; do
   rsh $command snapmirror status
done <netapps 2>&1 | mail foo@example.com

##</code><code>##

#!/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 );
}