#!/usr/bin/perl -w
# chargement des modules necessaires
use strict;
use CGI;
use XML::Simple;
use Data::Dumper;

my $file = 'index.xml';
my $xs1 = XML::Simple->new(suppressempty => '');
my $doc = $xs1->XMLin($file);

my $nwnomville = $doc->{nwheader}->{nwnomville};
my $nwregion = $doc->{nwheader}->{nwregion};
my $nwhab = $doc->{nwheader}->{nwhabnbr};

my $q = new CGI;                        # create new CGI object
print $q->header,                    # create the HTTP header
    $q->start_html('Script de Lecture pour NW'), # start the HTML
    $q->h1('Lecture NW '),         # level 1 header
    $q->p('Nom : '."$nwnomville"),
    $q->p('Region : '."$nwregion"),
    $q->p('Nbr : '."$nwhab"),
    $q->end_html;                  # end the HTML  

