if($EMAILS) {
                socket(MAIL,PF_INET,SOCK_STREAM,getprotobyname('tcp'));
                connect(MAIL,sockaddr_in(25,inet_aton($MAILHOST))) || die "$!\n";;
                select MAIL; $|++; select STDOUT;
                print MAIL "HELO mydoamain.net\r\n";
                print "Emailing users: ";
                for(split(/,/,$EMAILS)) {
                        print "$_, ";
                        print MAIL "MAIL FROM: $from\n";
                        print MAIL "RCPT TO: $_\n";
                        print MAIL "DATA\n";
                        print MAIL "Subject: $subject\n\n";
                        print MAIL "$data\n";
                        print MAIL ".\r\n";
                }
                print "done. \n";
                print MAIL "QUIT\r\n";
                close MAIL;
        }