#!/usr/bin/perl 
my $i1 = 1;
my $i2 = 100000;
my $i3;
my $i4;
my $i5;
printf("\nThe primes up to ");
printf("%d", $i2);
printf(" are:\n");

 REDO:
    $i3 = 2;
$i4 = $i1 / 2;
 LOOP:
    $i5 = $i1 % $i3;
  if ($i5) {goto OK;}
  goto NEXT;
 OK:
  $i3++;
  if ($i3 <= $i4) {goto LOOP;}
    printf ("%d", $i1);
      printf ("\n");
 NEXT:
  $i1++;
  if ($i1 <= $i2) {goto REDO;}