Existem algumas melhorias que você pode fazer neste código.

• Sempre use use strict e use warnings em seu código. E corrija os problemas que eles revelam (principalmente declarando variáveis ​​com my pelo jeito).
• Você use CGI /:standard/ que importa uma carga de funções CGI para o seu namespace, mas então você só chama essas funções como métodos em seu objeto CGI (em $q ) para que a importação seja desnecessária.
• Você usa notação de objeto indireto (new CGI ) para criar seu objeto CGI. Isso funcionará 99% do tempo, mas nos raros casos em que quebrar, você perderá dias rastreando o problema. Muito melhor usar CGI->new em vez disso.
• As funções de criação de HTML em CGI.pm (você usa start_html() ) foram obsoleto há algum tempo . Por favor, não os use.
• Ter HTML bruto em seu código Perl provavelmente será um problema de manutenção (como você parece ter descoberto, devido aos erros em seu HTML). Eu recomendo fortemente mover seu HTML do seu código Perl para templates. CGI::Alternatives tem algumas sugestões sobre como fazer isso.