#!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);