#!/usr/global/bin/perl -w

use File::Basename;

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

open(IN, "wget -q -O - $search_url |") or die $!;
while (<IN>) { last if /Today\'s Strip/; }
<IN> =~ m|<link>(.*)</link>|;

my $gif = $comics_dir . basename($1);
system("wget -q -O $gif $1");
system("xv $gif");