Ошибка при открытии дескриптора файла

Я только начал работать с Perl, я только на начальном уровне, и у меня возникли проблемы с открытием файловых дескрипторов.

Вот код:

#!/usr/bin/perl -w

$proteinfilename = 'peptide';

open(PROTEINFILE, $proteinfilename) or die "Can't write to file '$proteinfilename' [$!]\n";

$protein = <PROTEINFILE>;

close PROTEINFILE;

print $protein;

exit;

Каждый раз, когда я пытался запустить программу, она выдавала ошибку

readline() при закрытом дескрипторе файла PROTEINFILE в C:\BIN\protein.pl

или

Can't write to file 'peptide' [No such file or directory]

Не могли бы вы помочь мне понять это. У меня есть файл пептид, сохраненный как .txt, и он находится в той же папке, что и protein.pl. Что еще я могу сделать, чтобы это заработало?