use strict; use CGI::RSS; my $rss = new CGI::RSS; print $rss->header; print $rss->begin_rss( title => "My Feed!", link => "http://localhost/directory", desc => "My feed is cool!"); while( my $h = $sth->fetchrow_hashref ) { print $rss->item( $rss->title ( $h->{title} ), $rss->link ( $h->{link} ), $rss->description ( $h->{desc} ), $rss->date ( $h->{date} ), ); } print $rss->finish_rss;