#!/usr/bin/perl -w

use CGI;
my $pagina = new CGI;
	
sub testForm{
	my $num = shift;
	print "\n<br>".$pagina->start_form( -name=>"Form".$num, -method => "post", -action => "http://localhost/cgi-bin/cadastro.pl");
	print "\n".$pagina->hidden(-name=>'type', -default=>["try".$num]);
	print "\n<br>".$pagina -> submit(-name => 'envia', -value => 'GoGoGo');
	print $pagina ->end_form;
}

print $pagina -> header("text/html");						
print $pagina -> start_html;
testForm(1);
testForm(2);

$_ = $pagina->param("try");

if (defined $_){
	print
}

$pagina -> end_html;