open(FH, '<', 'images/logo.gif') or die $!;
local $/ = undef;
my $content = <FH>;
close(FH);

binmode STDOUT;
print "Content-type: image/gif\n\n";
print $content;
exit(0);