Andy, check your inbox, I found a little hole in your contact form :) ....Agent Skully has been doing some secret service work
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";
}
Code:
#!/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";
}