Select Code to Download

use strict;

...

print "Scalar 1 : $s\n";
print "Scalar 2 : $s2\n";

Scalar 1 : 509
Scalar 2 : 510

perl -e 'print 1.15*100,"\n",int(1.15*100),"\n"'