#!/usr/bin/perl /usr/local/bin/wtpage
<html>
<head><title>A Perl Module Advent Calendar</title></head>
<body bgcolor="#281093" text="white" link="yellow" vlink="yellow">
[% number = cgi.param('number') %]
[% USE datecalc %]
[% suffix = datecalc.suffix(number) %]
<p><img src="http://2shortplanks.com/f/xmason/[% number %][% suffix %].jpg" alt="[% number %][% suffix %]" border="0">
<hr>
[% day = datecalc.day_of_month %]
[% IF (day>=number) %]
[% USE adcal %]
[% adcal.item(number) %]
[% ELSE %]
No opening the doors early you naughty little tike!
[% END %]
</body>
</html>
syntax highlighted by Code2HTML, v. 0.8.12