Select Code to Download

use strictures;
use WWW::Mechanize;

...
               text => 'Congratulations! You are a winner. A loser no 
+more!!' ]);

print $mech->response->as_string, $/;

{
  "message": "Queued. Thank you.",
  "id": "<20141028181741.33218.21053@sandboxyz.mailgun.org>"
}