#!/usr/local/bin/perl

$MSGFILE = "message";
$LISTFILE = "netsolve_userslist";

if(!( -e $MSGFILE)){
  print "Cannot find $MSGFILE\n" ;
  exit(0);
}
 
if(!( -e $LISTFILE)){
  print "Cannot find $LISTFILE\n" ;
  exit(0);
}

open(LISTFILE, "$LISTFILE");
while(<LISTFILE>){
  chop;
  system("mail -s \"NetSolve 1.4\" $_ < $MSGFILE");
}
