my $tree = XMLin( foo.xml );
print $q->redirect('http://foo/cgi-bin/bar.cgi?TREE='.$tree);

##</code><code>##

my $p = new CGI;
my %in = map { $_ => $p->param($_) } $p->param;
print header;
print Dumper(%in);

##</code><code>##

my $treeparam = param('TREE');
print Dumper($treeparam);