perl script for grabbing images from HTTP/Apache Server