Estoy trabajando en un programa perl simple para mi primera asignación en mi clase de programación. Literalmente he estado atrapado en esta primera parte por más de un día. No puedo hacer que mi programa simplemente abra un archivo de texto que esté en el mismo directorio que el 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;
}

Estoy usando fresa perl. Para ejecutar el programa estoy arrastrando y soltando el programa en la línea de comandos para obtener la dirección del programa. A continuación, intenta ejecutarlo.

Inicialmente, me dio una línea de lectura en un error de identificador de archivo cerrado, y luego incluí el "o die" ("No se puede abrir '$ fileName': $!"); parte del código.

Ahora dice que no hay tal archivo en el directorio, pero sé que el archivo test.txt está ahí porque lo acabo de crear.

Imagen de los resultados del código:http://imgur.com/R8s7FFE

Directorio de archivos que muestra las ubicaciones de mis archivos:http://imgur.com/nUfM4lA)