##
print "Expires: Fri, 30 Oct 1998 14:19:41 GMT\n";
print "Content-type:image/png\n\n";
open IMAGE, "PATH_TO_FILE/invisible.png" or die "ERROR $!";
binmode IMAGE;
binmode STDOUT;
my $buff;
while(read IMAGE, $buff, 1024) {
print $buff;
}
close IMAGE;