19:27 >perl -wE "my $x = 2 * 4.5; my $y = int($x + 0.5); say $y;"
9

19:28 >