Select Code to Download

open(DATAOUT, ">variable")||die"$!\n";

for(my $count=0.9; $count<=1; $count=$count+0.01)
...
    }
    close DATAIN;
}