sub send_email {

	my($subject, @msg) = @_;
  	my($mailx) = "/usr/bin/mailx -s \"${subject}\" " .
                  join(' ', @emailaddrs);
 	open(MAILX, "|$mailx");
 	flush(MAILX);
 	print MAILX join("\n", @msg), "\n";
 	close MAILX;
 	print BUILDOUT "email notification sent to:\n";
 	print BUILDOUT @emailaddrs, "\n";
 	return;
	}