#!/usr/bin/perl use MIME::Lite; my $to = 'firstname.lastname@example.org'; my $from = 'email@example.com'; my $subject = "Eventful"; my $message = " Hi - Test email"; $msg = MIME::Lite->new( From => $from, To => $to, Subject => $subject, Data => $message ); $msg->attr('content-type' => 'text/html'); $msg->send;
I am using above script to send an email using Perl, but sometimes I am not receiving them. When I checked my maillog I got this message -
Mar 27 08:16:02 EQ-BIRDSERVER sendmail: v2RFG24m014361: to=root, delay=00:00:00, mailer=relay, pri=30444, stat=queued Mar 27 08:16:15 EQ-BIRDSERVER sendmail: rejecting connections on daemon MTA: load average: 68
Is there any way to send email even during heavy load on the machine?