#!\usr\bin\perl.exe
use strict;
my $defaultDir=$ENV{'DOCUMENT_ROOT'};
my $fName = $defaultDir."/comingsoon.gif"; ##Example only @_[0]
$fName =~ tr/+/ /;
$fName =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$fName =~ s/<!--(.|\n)*-->//g;
my ($ext) = $fName =~ /\.([^.]+)$/; 
my ($ext) = $fName =~ /\.([^.]+)$/; 

if(-e $fName and ($ext eq "jpg"||"gif"||"bmp")) {
	my $length = (stat($fName)) [10];
	print "Content-type: image/$ext\n\n";
	binmode STDOUT;
	open (picfile,'<', $fName) || die "Could not open $fName: $!";
	my $buffer = "";
	while (read(picfile, $buffer, 10240)) { 
	     print $buffer;
	}
	close(picfile);
}
exit;