Select Code to Download

for (my $i = 2 ; $i >= 0.1 ; $i -= 0.1){
  print $i, "\n";
}

2
1.9
...
0.399999999999999
0.299999999999999
0.199999999999999