# This script is based on Alexander Macgillivray's code, which is available at
#
# # http://www.bricoleur.org/archives/000134.html
#
# # To make this script workable, type following command below in Terminal.app
#
# #1# cpan
#
# #2# Then you will be asked some questions to set up CPAN answer them based on your situation
#
# #3# install Bundle::LWP
#
# #4# Done.
#
# # Please CHANGE /Path/To/YourFolder to the path where you want to save the pictures
#
#
#
# #always use strict
#
# use strict;
#
# #for the getting of the page and image
#
# use LWP::Simple;
#
# #get the entry page and look for the link to the big background picture
#
# (get("http://lava.nationalgeographic.com/cgi-bin/pod/PhotoOfTheDay.cgi") =~m!/pod/pictures/sm_wallpaper/(.+?jpg)!);
#
# #store that big picture
#
# getstore("http://lava.nationalgeographic.com/pod/pictures/lg_wallpaper/$1","/Path/To/YourFolder/$1");