Help for this page
#!/usr/bin/perl -w use strict; ... my $xml; $xml->{'cgi'} = 'hai'; print XMLout( $xml, keeproot => 1 );
my $xml = XMLin( 'file.txt', keeproot => 1 ); print $xml->{'cgi'};