You could knock yourself something together with LWP::UserAgent and HTML::LinkExtor or you could look at the one that merlyn prepared earlier at http://www.stonehenge.com/merlyn/WebTechniques/col07.html

/J\