Exemplo de código usando a linguagem perl ➚

1. Com editor de sua preferência, crie o arquivo /home/cgi_bin/cgi/testcgi.pl;

2. Adicione o programa perl abaixo no arquivo /home/cgi_bin/cgi/testcgi.pl, em seguida salve-o:

   
       #!/usr/bin/perl
       use CGI::Fast;
   
       while (my $q = CGI::Fast->new)
       {
           print("Content-Type: text/plain\n\n");
           print("MOSTRA AS VARIÁVEIS DE AMBIENTE USANDO PROTOCOLO CGI\n\n");
           print("------------------------------------------------------------------\n\n");
   
           foreach $var (sort(keys(%ENV))) {
           $val = $ENV{$var};
           $val =~ s|\n|\\n|g;
           $val =~ s|"|\\"|g;
           print "${var}=\"${val}\"\n";
           }
   
           print("------------------------------------------------------------------\n\n");
           print("Se as varáveis de ambiente aparecer no browser ao digitar o link http://cgi_bin/testcgi.sh, o site cgi_bin está configurado e funcionando/\n");
       }
   

3. Para permite que o arquivo testcgi.pl seja executado na pasta /home/cgi_bin/cgi/, execute os seguintes comandos:

   
       # todos podem executar, gravar e ler o arquivo testcgi.pl
       sudo chmod -R ugo+xwr /home/cgi_bin/cgi/testcgi.pl
   
       # Outros usuários não podem ler e gravar o arquivo testcgi.pl
       sudo chmod -R ugo+xwr /home/cgi_bin/cgi/testcgi.pl
   
   

4. Teste no browser se o programa http://cgi-bin/testcgi.pl funciona.

   1. Notas:
      1. Caso o link http://cgi-bin/testcgi.pl não funcione, edite o arquivo de log na pasta /var/log/apache2/error.log e observe a data dos erros e código do erro, em seguida procure na internet a solução;
      2. Esses passos descritos até aqui, foram testados no apache2 do Linux Mint 21 Cinnamon.