#!/usr/bin/perl
use strict;
use GD;
my $infile = "/opt/apache/icons/apache_pb.png";
my $data;
open (my $in_fh, $infile) or die;
while (<$in_fh>){
        $data .= $_;
}
close $in_fh;
my $image = GD::Image->newFromPngData($data, 1);
print "content-type: image/png\n\n";
print $image->png;