#!perl
use CGI::Carp qw(fatalsToBrowser);
use CGI;
use File::MMagic;
# set file name and type
my $file = file("logo.gif"); ###
(1)
my $type = File::MMagic->new->checktype_filename($file);
# print HTTP header
my $cgi = CGI->new;
print $cgi->header(-type => $type);
### (2)
# print content of $file
my $buf = undef;
my $bufsize = 1034;
open(FILE, $file);
binmode(FILE); ###(3)
binmode(STDOUT);
while (1) {
read(FILE, $buf, $bufsize);
last unless (length($buf));
print $buf;
}
close(FILE);
open(IMG, "$cufld/$fname") or die;
#// イメージ表示
binmode IMG;
binmode STDOUT;
print "Content-type: image/$imgtype\n\n";
print while (<IMG>);
#// 画像クローズ
close(IMG);
#// 終了
exit(0);