use LWP

        my $url="https://www.pentagon.com";
        my $agent=LWP::UserAgent->new;
        my $request= HTTP::Request->new(GET => $url);
        my $respone=$agent->request($request);
        $respone->message,"\n";
        my $r=$respone->content;