Supplement Program

1. print prime in 10000 and each 100 number.pl

#!/usr/bin/env perl
use strict;
use warnings;

my $num = undef;
my $is_prime = 1;

for (2..10000) {
  $num = $_;

  unless ($num % 100) {
    $line = $num;
    print "\n", $num - 99, "-$num", ": ";
  }

  for (2..$num-1) {
    my $devide = $_;
    unless ($num % $devide) {
      $is_prime = 0;
      last;
    }
  }

  if ($is_prime) {
    print $num, ", ";
  }

  $is_prime = 1;
}