if($ENV{'REQUEST_METHOD'} eq 'POST'){
    my $val;
    read(STDIN, $val, $ENV{'CONTENT_LENGTH'});
    print $val;
}