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

##</code><code>##

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