#!/usr/bin/perl 

$url = "http://antwrp.gsfc.nasa.gov/apod/image/0102/iss_sts98a.jpg";

print "retrieving $url";

$status = system ("lynx -source $url > wallpaper.jpg");