#!/usr/bin/perl my $message_file='FILE NAME WITH MESSAGE BODY'; my $subject_line=''; open(BODY, "<$message_file") || die "Couldn't open body file: $!"; my @body = ; close(BODY); open(PASSWD, ")) { my ($userid, $uid) = (split(/:/, $line))[0,2]; push(@to, $userid) if $uid >= 500; } close(PASSWD); for my $to (@to) { open(MAIL, "| sendmail -oi -t") || die "Couldn't open sendmail pipe: $!"; print MAIL "From: root\n"; print MAIL "To: $to\n"; print MAIL "Subject: $subject\n\n"; print MAIL @body; close(MAIL); }