#!/usr/local/bin/perl
#Print the contents of STDIN as ASCII text
#noexec

require '/home/scsfac/downeyt/scripts/parse-lib.pl';

$content_type=$ENV{'CONTENT_TYPE'};
$boundary=$content_type;
($boundary) = ($content_type =~ /^multipart\/form-data; boundary=-*(\d*)/);
$len= length $boundary;


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

while (<>)
{
    print;
}










