Select Code to Download

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

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

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

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

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

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