use strict; use warnings; use utf8; use POSIX; my ($a, $b) = ($ARGV[0], $ARGV[1]); my $answer = ceil $b/$a; print $answer;