Eu estou trabalhando em um programa perl simples para minha primeira tarefa na minha aula de programação. Eu literalmente fiquei preso nessa primeira parte por mais de um dia. Não consigo fazer com que meu programa simplesmente abra um arquivo de texto que esteja no mesmo diretório do programa.

#!/usr/bin/perl -w
use strict;

my($fileName, $line);

print "Please enter name of file to be opened: ", "\n";
$fileName = <STDIN>;
chop($fileName);

#Associates FILE filehandle with the file: "filename.txt"
open(FILE, $fileName) or die("Can't open '$fileName': $!");

while(my $line = <FILE>){
    print $line;
}

Eu estou usando morango perl. Para executar o programa, estou arrastando e soltando o programa na linha de comando para obter o endereço do programa. Em seguida, tenta executá-lo.

Inicialmente, ele me deu uma linha de readline no arquivo fechado filehandle error, e então eu incluí o ou die ("Não é possível abrir '$ fileName': $!"); parte do código.

Agora ele diz que não existe tal arquivo no diretório, mas eu sei que o arquivo test.txt está lá porque eu acabei de criá-lo.

Imagem dos resultados do código:http://imgur.com/R8s7FFE

Diretório de arquivos que mostra os locais dos meus arquivos:http://imgur.com/nUfM4lA)