[Sommaire] [Imprimer]

   1  #! /usr/bin/perl -w

   2  
   3  use strict;
   4  use CGI;
   5  
   6  my $cgi = new CGI;
   7  my $text1 = $cgi->param('text1');
   8  my $text2 = $cgi->param('text2');
   9  
  10  print "Content-type: text/html\n\n";
  11  
  12  print "<p>You submitted:</p>";
  13  print "<table border='1'>";
  14  print "<thead><tr bgcolor='#cccccc'><td width='50%'>text1</td><td width='50%'>text2</td></tr></thead>";
  15  print "<tbody><tr><td>$text1</td><td>$text2</td></tr></tbody>";
  16  print "</table>";