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