Well, if you want to optimize for maximum laziness...

my $cal = `cal`;
chomp $cal;

print <<"EOT";
<pre>
$cal
</pre>
EOT
[download]

:)