Então, o que devo fazer?

Antes de explicar o que você não deve fazer, deixe-me fornecer a você links para artigos explicando o que você deve fazer:

Leia como abrir arquivos para leitura no estilo moderno ou o artigo sobre escrever em arquivos utilziando o Perl.

Agora vamos retornar ao antigo, e não tão bom assim, modo de programar.

A forma antiga e não recomendada

Até o lançamento do perl 5.6 - isto é, meados de 2000 - nos costumávamos escrever código como este para abrir um arquivo para escrita:

open OUT, ">$filename" or die ...;

e código como este para leitura:

open IN, $filename or die ...;

A parte "or die" é a mesma que utilizamos hoje em dia.

Como você pode ver a função open recebe dois parâmetros. O primeiro é um conjunto de letras, geralmente em caixa alta. Esta é a estrutura que receberá o filehandle. O segundo parâmetro é um combinado do modo de abertura com o caminho do arquivo que deve ser aberto.

Ou seja, no primeiro caso você vê o sinal 'maior do que' significando que nós estamos abrindo o arquivo para escrita, mas no segundo exemplo nós omitimos o modo de abertura. Isso funciona porquê a função open() funciona em modo de leitura por padrão.

Existem duas grandes diferenças:

Filehandle glob

A primeira diferença está no uso da estranha variável sem o sinal de $ na frente para receber o filehandle. (Isto na verdade é uma palavra solta (bareword), mas uma que não dispara o erro Bareword not allowed while "strict subs" in use).

Funciona da mesma forma que antigamente nos primórdios do Perl, mas há vários problemas:

É global a todo o seu script, então se alguma outra pessoa utilizar o mesmo nome (IN, ENTRADA, OUT, SAIDA, por exemplo) irá ocorrer colisão com as suas variáveis.

É também um tanto difícil passar essas variáveis às suas funções.

Abertura com 2 parâmetros

A segunda diferença é o fato de que nesses exemplos a função open apenas possui dois parâmetros.

E se a variável $filename, que você está usando para abrir o arquivo para leitura, contém >/etc/passwd ?

Ops.

O open IN, $filename irá na verdade abrir o arquivo para escrita.

Você acaba de deletar o arquivo de senhas do seu sistema Linux.

Nada Bom.

É necessário fechar o filehandle

Outra vantagem de usar variáveis definidas dentro de um escopo como filehandles é que elas irão fechar automaticamente quando saírem de escopo.

Como evitar estes problemas?

A melhor saída é evitar ambas práticas utilizando o comando "new", (disponível desde 2000 !) utilizando a função open com 3 parâmetros através de variável escalar definida dentro de um escopo para armazenar o filehandle.

Existem ainda políticas no Perl::Critic que irão ajudá-lo a analizar o seu código e localizar todos os locais onde foram utilizadas as formas descritas acima.

O Bom e o Ruim para leitura

Ruim:

open IN, $filename or die ...;

Bom:

open my $in, '<', $filename or die ...;

O Bom e o Ruim para escrita

Ruim:

open IN, ">$filename" or die ...;

Bom:

open my $in, '>', $filename or die ...;