#!/usr/bin/perl
use CGI; # Carrega modulo cgi
$query = NEW CGI; # Cria a variavel do mudlo
$paginas=$query->param('pagina'); # Cria a variavel
if ($paginas eq "index") { # faz as comparações
print "Index"
}elsif ($paginas eq "dicas") {
print "Dicas";
}elsif ($paginas eq "Contato") {
Print "Contato";
}else{ # Caso não digite nada
print " Por favor, escolha uma pagina!!!";
}Para icrementalo, é so adcionar mais dessas linhas com os dados necessarios
}elsif ($paginas eq "Exemplo") {
Print "Exemplo";
Espero ter ajudado!
t+
