my $x = (1 - 0.99) * 100 ;
  print $x, ($x - int($x)) ? " has fraction" : " no fraction", "\n" ;