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

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

my$ recipient=some.g.guy@bigcorporation.com;
while (<IN>) {
    chomp;
    system( "rsh $_ quota report | mail  $recipient" );
}