use POSIX qw(ceil);
print ceil(3.5);   # prints 4
print ceil(4);     # also prints 4
[download]

sub roundup {
    my $n = shift;
    return(($n == int($n)) ? $n : int($n + 1))
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.