Select Code to Download

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

#!/usr/bin/perl
use strict;
...
   chomp;
   $output .= qx( rsh $_ snapmirror status 2>&1 );
}