The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

KAWASAKI / XML-TreePP-0.43 / example / envxml.cgi 

            

              
1
2
3
4
5
6
7
8
9
10

              
#!/usr/bin/perl
use strict;
use XML::TreePP;
my $tree = { env => \%ENV };
my $tpp = XML::TreePP->new();
print "Content-Type: text/xml\n\n";
print $tpp->write( $tree ), "\n";