Can you guys suggest a cookie-cutter script or module that I can use to push notifications to mobile users? I'm finding plenty of cookie-cutter PHP scripts, but nothing for Perl.

I'm already using a fairly complicated Perl script that's a culmination of 15 years of updates, upgrades, and modifications, and it would be a million times easier to add something here instead of rewriting it to be a totally new PHP script.

In an ideal world, I'd find something that I can simply add to:

$success = 0;

# Do all testing and manipulation here
# If all is good, $success = 1;

if ($success) {
 $sth = $dbh->prepare("INSERT IGNORE INTO tableA VALUES (?, ?, ?)");
  $sth->execute('blah', 'blah', 'blah');

 push_notification();

 print "Location: http://www.example.com/success/";
 exit;
}

function push_notification {
 // script for mobile push here
}

I expect to be sending about 1,000 a day from the beginning; roughly 2,000 inserts are done each day, and my mobile traffic is currently about 50%. And it will probably grow considerably over the next year :-(