[Neworleans-pm] meeting_tonight.pl

[Dave Cash]

#!/usr/bin/perl

use strict;

our $next_meeting  = 'tonight, 5:30 to 8:00pm';
our $location      = 'Fairgrinds Coffeehouse';
our $address       = '3133 Ponce de Leon St, New Orleans, LA 70119';
our @topics        = ();

our $topics = @topics ? "Our topics are:\n\n". join '', map { " * $_\n" }
@topics : "No topics have been suggested yet.\n";

print <<EOM;
Hello, NOLA Mongers!

Our next meeting is $next_meeting at $location ($address).

$topics

I hope to see you there!

Dave
EOM
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/neworleans-pm/attachments/20060810/4bdfca96/attachment.html