>perl -e"use Devel::Peek; Dump(3.0)"
SV = NV(0x184968c) at 0x225318      <-- NV = float
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,NOK,READONLY,pNOK)
  NV = 3

##</code><code>##

#include <stdio.h>

int main() {
   double x;

   for (x=1.0; x <= 3.0; x += 0.2) {
      printf("%lf\n", x);
   }

   printf("Stop: x=%lf\n", x);
   if (x != 3.0) {
      printf("No, x is not 3.\n");
   }

   return 0;
}

##</code><code>##

1.000000
1.200000
1.400000
1.600000
1.800000
2.000000
2.200000
2.400000
2.600000
2.800000
Stop: x=3.000000
No, x is not 3.