my $q = CGI->new();

my $data = create_png_image_data();

binmode STDOUT;
print $q->header( -type => 'image/png' );
print $data;