It wouldn't be Perl if you couldn't do without intermediate variables: my $xml = $xs->XMLout({%{$cgi->Vars()}}, rootname => 'source'); ____________
Makeshifts last the longest.