open MAIL, "|/usr/lib/senmail -t -odq" or die "Oops $!";
foreach $user (@maillist) {
    &print_message($user);
    print "\n.\n";
}
close MAIL;
print "All done\n";