#!/usr/bin/perl -w
$proteinfilename = 'fragment.txt';
open(PROTEINFILE, $proteinfilename);
$protein = <PROTEINFILE>;
close PROTEINFILE;
print " here is the protein:\n\n";
print $protein;