$file='incl/1x1transparent.png';
print "Content-type: image/png\n";
print "Set-Cookie: abc=xxx; SameSite=none; Max-Age=315576000\n" if $user;
print "\n";
open IMG, $file;
binmode IMG;
while (sysread(IMG, $buffer,640)) {
    print $buffer;
}
close IMG;
exit 0;

##</code><code>##

print "Content-type: image/png\n\n";
binmode STDOUT;
my $image = GD::Image->new(1, 1);
my $white = $image->colorAllocate(255,255,255);
$image->transparent($white);
print $image->png;
exit;