#!/usr/bin/perl

use LWP::Simple;
use warnings;

print "Content-type: text/html\n\n";

my $url = "https://www.earthquake.usgs.gov/earthquakes/feed/v1.0/summary/2.5_week.atom";

my $data = get $url;

print "$url\n$data";