#!/usr/bin/perl

$fname = "protein_sequences.fasta";

open $MYFILE, $fname  or die "Cannot open '$fname': $!";

while ( $line = <$MYFILE> ) {
   print "$.: $line";
}
close $MYFILE;
