POSIX::ceil is the solution, but if you know that the numerator is always an integer, and the denominator is a positive integer, then you can use this too:

$numerator = 15; $denominator = 2; print int(($numerator  $denominator
+ - 1) / $denominator), $/;
[download]

or

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