#!/usr/bin/perl

use warnings;
use strict;
use CGI qw( :standard );

our $query = new CGI;
our $method = $query->param("op");
print $query->header;
print $query->start_html(-title=>'Exemple');
unless ($method) { 
       print $query->start_form(-method=>"POST");
       print ' Name: ';
       print $query->textfield(-name=>'name');
       print $query->hidden(-name=>'op',
                            -default=>"01");
       print $query->submit('submit','submit');
       print $query->reset('reset');
       print $query->endform;
} else {
       my $name = $query->param("name");
       print "Name: $name";
}
print $query->end_html;
[download]