<% ; use File::Basename; if($Request->QueryString('type') eq 'gif') { $Response->{ContentType} = 'image/gif'; open(FILE, 'test.gif') || die "can't open test.gif"; binmode FILE; $/ = undef; my $data = ; $Response->{ContentLength} = length $data; $Response->BinaryWrite($data); $Response->End(); } else { %> We are going to load a gif through this same script as an example of doing a $Response->BinaryWrite()...

<% } %>