#!/usr/bin/perl
#Sample filter that turns all text into lower case
#characters.

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

my ($header, $body) = split /\r\n\r\n/, $value, 2;
$body = $header unless $body;

print "Content-type: text/html\n\n";
my $new = lc $body;
print $new;
