my $ua = new LWP::UserAgent(); 
my $req = new HTTP::Request (GET => $uri);        
my $request = $ua->request ($req);

##</code><code>##

500 Can't connect to no.such.server.in.my.lan:80 (Bad hostname)

##</code><code>##

my $ua=LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 }); 

##</code><code>##

Use Data::Dumper; 
print Dumper ($request); 

##</code><code>##

  my $ua = new LWP::UserAgent(agent =>"myagent");

##</code><code>##

  my $ua = new LWP::UserAgent(agent =>"Mozilla/5.0 (Windows NT 5.1; rv:51.0) Gecko/20100101 Firefox/51.0");