1 2 3 4 5 6
print "P2 256 256 255\n" ; for $y ( 0 .. 255 ) { for $x ( 0 .. 255 ) { print "$x\n" ; } }