#!/usr/bin/perl -w
                                                                                                                                          
open  (IN,  "<netapps" ) || die "Can't open file";
                                                                                                                                          
 while(<IN>) {
  chomp;
  system("rsh $_ snapmirror status"); 
}