#!/usr/bin/perl -w
# Reading protein sequence data from a file using a loop

# The filename of the file containing the protein sequence data
$proteinfilename = 'fragment.pep';

open(PROTEINFILE, $proteinfilename);

# Read the protein sequence data from the file one line at a time and print it
while ($protein = <PROTEINFILE>) {
	print $protein;
}

close PROTEINFILE;
exit;