my $x1 = (1.15*170)+0.50;
my $x2 = int($x1);
print "Number is: $x1, Integer part is: $x2";