Select Code to Download

#!/usr/bin/perl

...
    die "Failed to GET '$url': ", $response->status_line;

print $response->as_string;

CONNECT remote.server.com:443 HTTP/1.0
HTTP/1.0 200 Connection established
CONNECT https-proxy.example.com:80 HTTP/1.0
HTTP/1.0 403 Forbidden