Select Code to Download

use strict;
use warnings;

#!/usr/bin/perl

...
my $res = $ua->request($req);
print "content-type:text/html\n\n";
print $res->content;