<span style="font-family: courier new,monospace;">#!/usr/bin/perl</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">use strict;
</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">our $next_meeting = 'tonight, 5:30 to 8:00pm';</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">our $location = 'Fairgrinds Coffeehouse';</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">our $address = '3133 Ponce de Leon St, New Orleans, LA 70119';
</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">our @topics = ();</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">
<br>our $topics = @topics ? "Our topics are:\n\n". join '', map { " * $_\n" } @topics : "No topics have been suggested yet.\n";</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">print <<EOM;</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">
Hello, NOLA Mongers!</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Our next meeting is $next_meeting at $location ($address).
</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">$topics</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">
</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">I hope to see you there!</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">Dave</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">EOM</span><br style="font-family: courier new,monospace;">