$numerator = 15; $denominator = 2; print do{ use integer; ($numerator + $denominator - 1) / $denominator }, $/;