#!/usr/bin/perl

use strict;
use LWP::UserAgent;
use HTTP::Request;

my $agent = "APODGet/v1.0";
my $baseUrl = "http://antwrp.gsfc.nasa.gov";
my $url = "$baseUrl/apod/astropix.html";

## get the daily HTML page
my $ua = LWP::UserAgent->new(agent => $agent);
my $req = HTTP::Request->new(GET => $url);
my $response = $ua->request($req);

## extract todays image from the page
my $astroHTML = $response->content();
my ($imgTag) = $astroHTML =~ /<a href="(image.*)">?/mi;
my $imageLocation =  "$baseUrl/$imgTag";

## add on jpg if it doesn't have an extension
if ($imageLocation !~ /\.....?$/) { $imageLocation .= '.jpg'; }

## fetch the image
$req = HTTP::Request->new(GET => $imageLocation);
my $response = $ua->request($req);

## output
print $response->content();