Select Code to Download

open (MYFILE, '148-N-pvalue0.01_peaks.xls');
#READ THROUGH THE FILE
   while (my $line = <MYFILE>)
   {
...

use warnings;
use strict;