use LWP::UserAgent; 
use strict;
use warnings;

my $ua  = LWP::UserAgent->new; 
my $req = HTTP::Request->new(GET => 'https://www.easysoft.com');
my $res = $ua->request($req);

print $res->headers_as_string;
print $res->content;