#!/usr/bin/perl open(FILE, ">foo.html"); print FILE "\n"; $i = 0; while($i < 360){ print FILE ""; $i++; print FILE ""; $i++; print FILE ""; $i++; print FILE ""; $i++; print FILE ""; $i++; print FILE ""; $i++; print FILE ""; $i++; print FILE "\n"; }