that doesn't give correct results!

The problem is NOT within int(..) (I tried 0.501..)
the result of int is correct 12400, but if you devide this
(try only10!) you will get 123.99:

  $cent = int(0.5 + ($u*$p*100); # => 12400, ok
#but
  $dollar = $cent / 100; # => 123.99
# even if you use sprintf (which itself does 
#  NOT round financially, you have to it yourself!
  $dollar = sprintf ".2f", $cent/100; # => 123.99 Dollar
[download]

Carl