#!/usr/global/bin/perl

use File::Basename;

my $search_url = 'http://www.userfriendly.org/cgi-bin/texhtml?form=uf/rdf\&action=search';
my $comics_dir = '/home/user/.comics/';
my $url;

open(IN, "wget -q -O - $search_url |") or die $!;

while (<IN>) {
    if (/Today\'s Strip/) {
	<IN> =~ m|<link>(.*)</link>|;
	$url = $1;
	break;
    }
}

my $gif = $comics_dir . basename($url);

system("wget -q -O $gif $url");
system("xv $gif");