#!/usr/bin/perl -w
print "  Int   Square\n===== ========\n";
## Or alternativly with out a list
for($i = 0; $i < 33; $i++) 
{
	printf "%5g %8g\n", $i, $i*$i; 
}