Select Code to Download

$req->content_type('application/whatever-pdf-mimetype-is');

use LWP::UserAgent;
     $ua = LWP::UserAgent->new;
...
     else {
        print $res->status_line, "\n";
     }