Perl Readline na zamkniętym uchwycie pliku - plik nie istnieje błąd

Pracuję nad prostym programem perlowym dla mojego pierwszego zadania w mojej klasie programistycznej. Dosłownie utknąłem na tej pierwszej części przez ponad dzień. Nie mogę pobrać programu, który po prostu otwiera plik tekstowy znajdujący się w tym samym katalogu, co program.

#!/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;
}

Używam truskawki perl. Aby uruchomić program, przeciągam i upuszczam program do wiersza poleceń, aby uzyskać adres programu. Następnie próbuje go uruchomić.

Początkowo dał mi readlinę przy zamkniętym błędzie uchwytu pliku, a następnie włączyłem lub umarłem („Nie można otworzyć $ $ FileName ': $!”); część kodu.

Teraz mówi, że w katalogu nie ma takiego pliku, ale wiem, że plik test.txt jest tam, ponieważ właśnie go stworzyłem.

Obraz wyników kodu:http://imgur.com/R8s7FFE

Katalog plików, który pokazuje lokalizacje moich plików:http://imgur.com/nUfM4lA)

questionAnswers(2)

yourAnswerToTheQuestion