#!/usr/bin/perl
$/ = "";                    # set paragraph mode
chomp($headers = <STDIN>);  # read a paragraph, remove trailing newlines
$/ = "\n";                  # unset paragraph mode
printf(STDOUT "%s\n\n", $headers);
while (<STDIN>) 
	{
	if ($_ eq "Content-Type: text/plain; charset=utf-8\n"){
		$p = 'y';
	}
	if ($_ eq "Content-Type: text/html; charset=utf-8\n"){
		$y = 'y';
	}
	printf(STDOUT "%s\n", $_);
	if ( $p eq 'y'){
	printf (STDOUT "%s\n", "WARNING IN PLAIN TEXT") ;
	$p = 'n';
	}
	if ( $y eq 'y'){
	printf (STDOUT "%s\n", 'HTML WARNING') ;
	$y = 'n';
	}
	}