#!/usr/bin/perl

print "Content-type:text/html\n\n";


require "common.pl";
print "<center>";
foreach $month(@months){
	$name = uc(substr($month,0,1)).substr($month,1);
	$small = $url.$month."_tn.jpg";
	$big = $url.$month.".jpg";
	print <<__EOQ__;

<img src="$big">
<br><br>
__EOQ__
    }
print "</center>";