#!/usr/bin/perl -w
use strict;
use CGI;

my $q = CGI->new;
print $q->header("image/png");

## later
print $im->png;