#!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; my $ua = LWP::UserAgent->new; $ua->timeout(10); $ua->proxy('https', $ENV{HTTPS_PROXY}); my $response = $ua->get('https://google.com/'); if ($response->is_success) { print $response->decoded_content; # or whatever } else { die $response->status_line; } #### myaccount@linuxhost:~> curl https://www.google.com 302 Moved

302 Moved

The document has moved here.