Select Code to Download

open (FH,'<',"$file") or die ("ERROR! Opening file $!");

open my $fh, '<', $file or die ("ERROR! Opening file $file $!");

for(my $i = 0;$i<=$#Dlines; $i++){

for my $i (0 .. $#Dlines) {