#!/usr/bin/perl


open(FILE, ">foo.html");
print FILE "<html>\n";
$i = 0;
while($i < 360){
	print FILE "<img src=movie.$i>";
	$i++;
	print FILE "<img src=movie.$i>";
	$i++;
	print FILE "<img src=movie.$i>";
	$i++;
	print FILE "<img src=movie.$i>";
	$i++;
	print FILE "<img src=movie.$i>";
	$i++;
	print FILE "<img src=movie.$i>";
	$i++;
	print FILE "<img src=movie.$i>";
	$i++;
	print FILE "<br>\n";
}
