#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use POSIX;

say &ceil(1.23);