#!C:\Strawberry\perl\bin\perl -w

#use lib './lib';
use GD;

## Create blank image
GD::Image->trueColor(1);
$image = new GD::Image(100,100);

$pngfile = 'temp.png';

open(PNG, '>:raw', "$pngfile") or &died(" -ERROR- Cannot open $pngfile for write: $!\n");
print PNG $image->png;
close(PNG);

print "Script complete.\n";
`pause`;

sub died {
	print @_;
	`pause`;
	die;
}