Linux FreeBSD

Incoming e-mails: 362 mails/sec 318 mails/sec
Mail relaying: 167 mails/sec 192 mails/sec

#!/usr/bin/perl

use LWP::UserAgent;

my ($req,$ua,$res);

$ua = new LWP::UserAgent;
$ua->agent("AgentSkully/1.0 " . $ua->agent);

$req = new HTTP::Request POST => 'http://path_to_andys_script';
$req->content_type('application/x-www-form-urlencoded');
$req->content('action=send_quote');

for (1..1000) {
$res = $ua->request($req);
print $res->is_success ? "Sent $_\n" : "Bad luck this time\n";
}

#!/usr/local/bin/perl

$SEND_MAIL = '/usr/lib/sendmail';

#___________________________________________________________________________
#
# DONE!
#___________________________________________________________________________


$| = 1;

use CGI;
$query = new CGI;

$query->import_names('A');


#######################################################################################
#######################################################################################


print "Location: http://www.****.co.uk/****/submit-thankyou.html\n\n";


open(MAIL,"|$SEND_MAIL -t");

print MAIL "To: wil\@****.co.uk\n";
print MAIL "From: $A::email ($A::name)\n";

print MAIL "Subject: ****: Submit Recipe\n\n";

print MAIL "The following information has been sent from the **** Submit Recipe Form:\n";

print MAIL "-------------------------------------------------------------------------------\n";
print MAIL "\n";

print MAIL "$A::name\n\n";
print MAIL "$A::email\n\n\n";
print MAIL "$A::recipe\n\n";

print MAIL "-------------------------------------------------------------------------------\n";
print MAIL "\n";

close (MAIL);

exit;

#######################################################################################
#######################################################################################