Tenta assim:Aparece akela tela de erro lah: Internal Server Error...
#!/usr/bin/perl
use CGI; # Carrega modulo cgi
$query = NEW CGI; # Cria a variavel do mudlo
$paginas=$query->param('pagina'); # Cria a variavel
print "Content-type: text/html\n\n"; # Impressão
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!!!";
}