chomp(my $in = ); my ($a,$b) = split / /,$in; my $result = ($b % $a) ? int($b / $a)+1 : int($b / $a); print $result,"\n";