readline() on closed filehandle PROTEINFILE at C:\strawberry\perl\bin\trial1.pl line 4
here is the protein:

Use of uninitialized value $protein in print at C:\strawberry\perl\bin\trial1.pl line 7