#!C:\Perl\bin\perl -w
use strict ;
use CGI ;
use Encode ;

sub afficheXMLCGI {
	my $t = CGI->new ;
	my $req2 = shift(@_) ;
	my $outout = shift(@_) ;
	print $t->header(-type=>'text/html', -charset=>'UTF-8'),
		$t->start_html(-lang=>'fr-FR', -title=>'xoomle', -style=>{'src'=>'XoomleStyle.css'}),
		$t->start_div({-id=>'titre'}),
		$t->p({-id=>'title'}, 'Bo&#238;te &#224; outils 1'),
		q(<a href="http://martine.casterman.com/"><img id="logo" onmouseout='src="images/martine-copie.jpg"' onmouseover='src="images/martine2.jpeg"' alt="couverture" src="images/martine-copie.jpg" /></a>),
		$t->end_div,
		$t->start_div({-class=>'marge'}),
		$t->br(),
		$t->end_div,
		$t->start_div({-class=>'encard'}),
		$t->h2( encode("utf8", $req2) ) ;
	my $l ;
	open( FILEIN, "<", $outout)  ;
	while( $l = <FILEIN>)
	{
		if( $l=~ /^<\?/ ) { next ; }
		$l =~ s/\n/<br \/>/ ;
		print $l, "\n" ;
	}
	print $t->end_div,
		$t->end_html;
	close(FILEIN) ;
}
"true" ;