#! /usr/bin/perl -w use strict; use LWP::Simple; my $day = "3"; my $month = "DEC"; my $start = 1955; my $end = 2001; foreach my $year (1955..2001) { my $url = "http://cgi.www.thisdayinmusic.com/cgi-bin/www.thisdayinmusic.com/do_2.pl?day=$day\ &month=$month&year=$year&email=foo\@bar.com&\ mailit= OFF&US_Number_1.x=1&US_Number_1.y=1"; my $page = get $url; my $pattern = pattern(); $page =~ m#$pattern#; print "$year: $1, $2\n"; } sub pattern { return < ([^<]+) by
([^<]+)

EOT }