Select Code to Download

print "Enter the name of the files containing all the proteomic inform
+ation: \n";
my $filename = <STDIN>;
...

my @arraydata = <DATA>; 
#all the information in the pep file is input into an array

open(DATA, '| >*.pep');