Generate an RSS feed in Perl

rss.pl

#!/usr/bin/perl

use XML::RSS;
use strict;

my @event_array = <SQL MAGIC GOES HERE>;

my $rss = new XML::RSS;
$rss->channel( title => 'Your Title Here', link => 'https://...',
	description => 'Your description here.' );

foreach (@event_array) {
	$rss->add_item(
		title => 'Item Title',
		link => 'https://...',
		description => 'Item Content',
	);
}

print $rss->as_string;

exit;