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

print <<"EOT";
<pre>
$cal
</pre>
EOT