use strict; use warnings; my($a, $b) = split(' ', ); print int($a/$b)+1;