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

open my $f, 'netapsp' or die "open failed: $!";
my $recip = 'some.g.guy@bigcorp.com';
while (<$f>) {
  chomp;
  system "rsh $_ quota report | mail $recip" and die "rsh failed: $!";
}