use strict;
use warnings;
use CGI;
use Data::Dumper;
use XML::Dumper;

my $cgi = new CGI;
$cgi->{dummy} = new CGI;

my $serialized = pl2xml($cgi);
print "$serialized\n";

my $deserialized = xml2pl($serialized);
print Dumper($deserialized);