#!/usr/bin/perl
# Set OS X desktop background to Astronomy Picture of the Day
# (http://apod.nasa.gov/apod/)
# Written by Greg Methvin

chdir "/tmp";
$_ = `curl "http://antwrp.gsfc.nasa.gov/apod/astropix.html"`;
/href\="image\/([^\/]+)\/(.*?)"/i or die "Could not find image\n";
`curl -O "http://antwrp.gsfc.nasa.gov/apod/image/$1/$2"`;
print "Setting desktop image\n";
`/usr/bin/osascript <<END
    tell application "Finder"
        set f to POSIX file "/tmp/$2" as string
        set desktop picture to file f
    end tell
END`;