#!/usr/local/bin/perl 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 { %> $Response->BinaryWrite() を行っている実例としてのスクリプトで、 gif ファイルをロードしています...

Win32 の環境なら、データがバイナリなら、 読み込みの前に、binmode でのファイル操作が必要なことに留意してください。 <% } %>