#!c:\perl\bin\perl.exe -w use strict; use LWP::Simple; use CGI qw( :standard ); print "Content-type: text/html\n\n"; print start_html; my $data = get("http://thraxil.org/rss"); my $scalar; open (F, ">test.txt") or die $!; print F $data; close F; open( F2, ") { if ( /\s*(.*?)\s*<\/title><link>(.*?)<\/link>/m ) { print "<a href=$2>$1</a><br><br>"; } } close F2; print end_html();