#! /usr/bin/env perl
use strict;
use warnings;

use CGI;

my $fake_filename = "x.png";

my $cgi = CGI->new();
print $cgi->header(
    '-type'       => 'image/png',
);

# let's assume, generate_png() generates a valid PNG data stream
print generate_png();