Ce script utilise la librairie CGI.pm (pré-installée avec les distributions Perl récentes) et le module XML::Simple pour récupérer les données envoyées à un CGI et les convertir en un fichier XML à destination d'un fichier, d'un tuyau (pipe), d'un port (socket) ou encore d'une connexion SOAP.

#!/usr/bin/perl
# dumps the values of what is passed from the form
# in xml format
# --adam

use XML::Simple;
use CGI qw(:standard :html3);
use strict;

my %data = ();

my $q = CGI->new();
my %Params = $q->Vars;


while(my($k,$v) = each %Params) {
        my @a = split /\0/, $v;
        for (@a) {
                push @{$data{$k}}, $_;
        }
}

my $xmlout = XMLout(\%data, rootname => 'form');

print "$xmlout\n"