#!/usr/bin/perl -w
# generate_gradient2.pl - Don Yang (uguu.org)
#
# 01/05/12

use strict;

print "P3\n256 256\n255\n";
for(my $c = 255; $c >= 0; $c--)
{
   for(my $r = 255; $r >= 0; $r--)
   {
      print "$r $c $c ";
   }
   print "\n";
}