round.pl

# 数値の切り上げをする
sub round_up{int($_[0]) + (int($_[0]) < $_[0])}
1;