#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;

my $ua = LWP::UserAgent->new(env_proxy => 1);
$ua->agent("SamAgent/0.1 ");

my $req = HTTP::Request->new(GET => 'https://localhost/');

my $res = $ua->request($req);

if ($res->is_success) {
	print $res->content;
} else {
	print "Failed\n\n";
	print $res->code, " ", $res->message, "\n\n";
	print $res->content;
}