sub getimage{
        my $self = shift;
        my $q = $self->query;
        my $error='';
        ...
        get the image and set $binData to the image data
        ...
        print $q->header(-type=>'image/gif', -Content_Length=>length($binData)+1).$binData 
}