#!c:/perl/bin/perl

print "Content-type: image/gif\n\n";

open(IMG, "packplan.gif");
binmode(IMG);
my @file = <IMG>;
close(IMG);
foreach my $line (@file){
	print $line;
}