#!/usr/bin/perl use Socket; use Sys::Hostname; $host = hostname(); print "Content-type: text/html\r\n\r\n"; for ($i=0;$i<10;$i++) { for ($j=0;$j<10;$j++) { print "

"; } print "
"; } print "";