2a3
> use integer;
5c6
< my $len = int(10 * $n / 3) + 1;
---
> my $len = 10 * $n / 3 + 1;
20c21
<         $q = int($x / $divisor);
---
>         $q = $x / $divisor;
24c25
<     $q    = int($q / 10);
---
>     $q    = $q / 10;