And farther on

#!/usr/bin/perl
use strict; use warnings; 


  use LWP;
  my $url = "https://www.earthquake.usgs.gov/earthquakes/feed/v1.0/sum
+mary/2.5_week.atom";

  my $ua; 
  $ua = new LWP::UserAgent(keep_alive=>1
                          ,agent =>"Mozilla/5.0 (Windows NT 5.1; rv:51
+.0) Gecko/20100101 Firefox/51.0"
                          ,ssl_opts => { verify_hostname => 0
                                       , SSL_verify_mode => 'SSL_VERIF
+Y_NONE' 
                                       }
#                          ,timeout=>$timeout
                          );
  my $req = new HTTP::Request (GET => $url); 
  my $response = $ua->request ($req);

  unless ($response->is_success) {
     die $response->status_line; 
     }
[download]

result

404 Not Found at 1189178a.pl line 20.
[download]