#!/usr/bin/perl

print 'HTTP/1.0';
print "\nContent-type: text/plain\n\n";

while (<>)
{
	print ;
	$_ =~ /^X-filename/ && exit 0 ;
}
exit 1;