if($ENV{'REQUEST_METHOD'} eq 'POST'){
    my $val = <STDIN>;
    print $val;
}