#!/usr/bin/perl
use strict;
use warnings;

use CGI qw/:standard/;
use XML::Simple;
use Data::Dumper;

my $params = XMLin(param('POSTDATA'));

print header(-type => 'text/plain');
print Dumper $params;