Select Code to Download

use strict;
use CGI;
...
# code to return 400
print "400\n";
exit;

use LWP::UserAgent;
use strict;
...
$req->content_type('text/xml');
$req->content("$content");
print $ua->request($req)->as_string;