#!/usr/bin/perl

while (defined ($_ = <STDIN>)) {
	$header .= $_;
	if ($_ =~ /^[\r\n]*$/) {
		last;
	}
	if (/^content-type: (.*)/i) {
		$type = $1;
	}
}

if ($type =~ m,text/html,i) {
	print $header;
	open FILTER, "|@ARGV";
	while (defined ($_ = <STDIN>)) {
		print FILTER $_;
	}
	close FILTER;
} elsif ($type =~ m,text/plain,i) {
	print $header;

	while (defined ($_ = <STDIN>)) {
		print $_;
	}
} else {
	print "HTTP 404 Not Found\n\n";
	# actually should be "denied" I guess
}