#!/usr/bin/perl5 asp <% 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->Clear; $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()...

Please note that if you are on Win32, you will need to call binmode on a file handle before reading, if its data is binary. <% } %>