use strict; use warnings; use utf8; use POSIX; # test a:b 40:40 40:100 20:40 40:80 my $a = $ARGV[0]; my $b = $ARGV[1]; my $answer = 0; if($a != 0){ $answer = floor ($b / $a); if(($b % $a) != 0){ $answer += 1; } } print "$answer\n";