Select Code to Download

C:\usr\local\share\PassThru\perl>perl -le "print int(100*'1.13')"
112

C:\usr\local\share\PassThru\perl>perl -MPOSIX=round -le "print round(1
+00*'1.13')"
113

#### redo, with proper rounding
$from_api = get_from_api();
...
print "string from_api = '$from_api' after text manipulation\n";
$from_api = round($from_api);
print "good rounding = ", $from_api, "cents\n";

use warnings;
use strict;
...
}

done_testing;