#!/usr/bin/perl


$max=25;

$i=1;

print "<table width='100%' align='center'><tr>";


while ($i<=$max){
	system "convert -geometry 100x100 capture$i.png capture_m$i.png";
	
	print "	<td width='25%'>
		 <a href='capture$i.png'>
		  <center>
		   <img src='capture_m$i.png' width='100' height='72'/>
		  </center>
		 </a>
		</td>
	";
	if (($i % 4) == 0) {
		print "</tr><tr>";
	}
	$i++;
}

print "</tr></table>";