


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);