Select Code to Download

while (my $line=<$fh>){ 
     chomp $line;
     my ($low, $high, $id) = split /\t/, $line;
     # ...