print"Content-type: image/gif\n\n";
open (GIF,"<tcllogo.gif");
$|=1;
binmode STDOUT;
binmode GIF;
while (<GIF>)
{
print;
}
close (GIF);