#!/usr/bin/perl use 5.008; use strict; use warnings; my $buffer; print "Content-Type: text/plain\n\n"; #print "$_ => ",$ENV{$_},"\n" for sort keys %ENV; print '=' x 30, "\n"; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); print 'Buffer [', length $buffer, "], $buffer", "\n"; print '=' x 30, "\n";