| Current Path : /usr/share/doc/libcgi-xml-perl/examples/ |
| Current File : //usr/share/doc/libcgi-xml-perl/examples/cgi2xml.pl |
#!/usr/bin/perl -w
use strict;
use CGI::XML;
my $q = new CGI::XML;
# save CGI variables to XML file
my $xml = $q->toXML("cgi");
print $xml;