#!/usr/bin/perl
use LWP::Simple;
my $webpage = get('http://www.dilbert.com');
$webpage =~ /<a href=\"\/comics\/dilbert\/archive\/images\/(dilbert\d+\.gif)\"/;
getstore("http://www.dilbert.com/comics/dilbert/archive/images/$1","../$1");