#!/usr/bin/perl -w
use strict;
use CGI::Lite;

my $cgi = new CGI::Lite;
my %in = $cgi->parse_form_data;

my $text_value = '';

print "Content-type: text/html\n\n";

foreach my $k (keys %in) {
	$text_value .= "$k => $in{$k}\n\n";
}

my $fichier = '../public_html/debug.html';
open (FICHIER, '>', $fichier) || die ("Writing $fichier failed");
print FICHIER $text_value;
close (FICHIER);