my $hayasa = $ARGV[0]; my $kyori = $ARGV[1]; my $hosu = int($kyori / $hayasa) + 1; print $hosu;