#!/usr/bin/perl
use strict;
use warnings;
use CGI qw/ :standard -debug /;
use CGI::Carp qw(fatalsToBrowser);

print header;

my $incoming = param('POSTDATA');

if ( ! defined $incoming ) {
    $incoming = param('PUTDATA');
}

print $incoming;