#!/usr/bin/perl
# Sample filter that just echoes content.

print "Content-type: text/html\n\n";

my $value;
read(STDIN,$value,$ENV{'CONTENT_LENGTH'});

my ($header, $body) = split /\r\n\r\n/, $value, 2;
$header =~ s/(\n)/$1<br>/g if defined($body);

print $header;
print $body;
