Select Code to Download

my $res = $ua->request($req);
if ($res->is_success){print $res->as_string;
}else{print $res->status_line;
}

#!/usr/bin/perl
use warnings;
...

close SOCK;

#!/usr/bin/perl
use warnings;
...
</HTML>
END_HTML