Select Code to Download

#!/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'};