#! perl -sw
use strict;
#$| = 1;
use GD;
use CGI ":all";

my $im = GD::Image->newFromPng("m.png");
my ($width, $height) = $im->getBounds();
my $result;

for my $x (0 .. $width) {
	$result .= "<BR>";
	for my $y (0 .. $height) {
		$result .= font( {
			color=> sprintf "%02x%02x%02x", $im->rgb($im->getPixel($y, $x))
			},'.');
	}
}

print header,$/;
print substr($result, $_*60000, 60000) for 0 .. int(length($result)/60000);
print end_html;