Select Code to Download

#!/usr/bin/perl -w
...
close PROTEINFILE;
print " here is the protein:\n\n";
print $protein;

readline() on closed filehandle PROTEINFILE at C:\strawberry\perl\bin\
+trial1.pl line 4
...