Load Image from URL
Loads single jpg, gif or png from given URL.
Author: jvcleave
Version: 1.0
Added on May 15, 2008
#!/usr/bin/perl -T use strict; use warnings; my @urls = (); open(F, "cl.rdf") or die; while (<F>) { next unless m{<img src="(http://(chalow.net/images/|.+?ggpht.com).+?)"}; push @urls, $1; } close F; srand; my $url = $urls[rand(@urls)]; print qq(Location: $url\n\n);