Como já foi dito anteriormente nas dicas para um script CGI, a primeira linha de todo script CGI deve ser iniciada com os caracteres #! (grade - ponto de exclamação), seguidos pelo caminho do diretório onde se encontra o interpretador Perl do servidor.

1 #!/usr/local/bin/perl

Nosso cabeçalho contém apenas linhas de comentário que serão ignoradas pelo interpretador Perl. Começa e termina com as linhas (2) e (14), as quais contém um traço de separação apenas para demarcar melhor a área do cabeçalho.

As linhas de (4) a (12) contém o NOME do script, sua VERSÃO, o AUTOR, a DATA e observações consideradas importantes. Costuma-se também adicionar o histórico das versões e, eventualmente, indicações de como instalar o script no servidor.

 2 #########################################################################
 3 #
 4 # mailMan.cgi - versão 1.0
 5 # by vickisoft 1999 - webmaster arroba numaboa.com
 6 #
 7 # Uma referência ou um link para
 8 # http://www.numaboa.com/informatica/tutor/cgiPerl/
 9 # será muito apreciado (e fará um bem danado ao meu ego ;-)
10 #
11 # Chamar script com:
12 #   <a href="../diretórioCGI/mailMan.cgi?enviar=webmaster&topico=algo></a>
13 #
14 ######################################################################### 

15
16 # ####################
17 # Variáveis configuráveis
18 # ####################
19
20 # endereços de email
21 $masterEmail = "webmaster\@numaboa.com.br";
22
23 # Imagens nas páginas dinâmicas
24 $imgLogo = "suaLogo.gif";
25 $imgFundo = "seuFundo.jpg";
26
27 # Referências da URL da Home Page
28 $urlHP = "http://www.numaboa.com.br";
29

As linhas em branco, como a (15), (19), etc, são ignoradas pelo interpretador Perl. Portanto, para obter um script "arrumado", de visual agradável e mais adequado para receber futuras manutenções e melhorias, não economize linhas em branco e linhas de comentário bem destacadas.

Este bloco de variáveis configuráveis está logo no início do script para facilitar o trabalho do usuário. Nele se encontram algumas variáveis que serão utilizadas quando o script for executado. O escopo dessas variáveis é global, pois foram definidas no corpo principal do script. Isto significa que qualquer subrotina ou função tem acesso direto a essas variáveis.

Todas as variáveis desse bloco são variáveis simples (escalares).

A variável $masterEmail, na linha (21), contém uma string com o endereço de email para o qual deverá ser enviada a mensagem do usuário. Note que a arroba (@) é precedida por uma barra invertida (\). Essa notação é necessária para que a arroba não seja interpretada como um caracter especial.

As variáveis restantes também são do tipo string e seguem as regras normais de notação, ou seja, $nomeDaVariável="valor da variável";. Não se esqueça de iniciar o nome com o caracter $ e de terminar a atribuição com um caracter ;. Um erro muito comum é esquecer o famigerado ponto-e-vírgula que, por ser pequeno, costuma ser difícil de achar...

Linhas (24) e (25): as variáveis $imgLogo e $imgFundo contém o nome dos arquivos que contém os gráficos da logo e do fundo de página que serão incorporadas ao código HTML das páginas de formulário e de agradecimento. Caso se encontrem num diretório diferente do diretório do script, este precisa preceder o nome do gráfico ($imgLogo="/imagens/suaLogo.gif";)

Linha(28): a variável $urlHP indica o endereço URL da sua Home Page (não o caminho relativo) e será utilizada para produzir um link no email de agradecimento.

30 # ###########
31 # Variáveis do script
32 # ###########
33
34 $programaMail = "/usr/lib/sendmail -t";
35

Apenas uma variável foi definida neste bloco, a $programaMail, que contém o caminho do serviço de email disponibilizado pelo seu provedor de serviços (servidor). Caso você desconheça o caminho, solicite a informação ao seu provedor. Geralmente os mailers são configurados em /usr/lib/sendmail, /usr/bin/sendmail ou /usr/sbin/sendmail. O parâmetro -t refere-se ao programa sendmail.