#! /usr/bin/perl

use Math::BigInt ':constant';

my $i;
my $target;
my $flta;
my $fltb;
my $base;
my $exp;

my $i = -1;
for $target ( 1 ... 560 ) {
    print "$target is prime number $i\n" if flt($target);
    if ( $target == 560 ) {
        print
"From $target and greater are the appearance of Carmichael numbers,other primality tests are required.\n";
    }
}

sub flt {
    $target = shift @_;
    $exp    = $target - 1;
  PRIMALITY:
    for $base ( 1 .. $exp ) {
        $flta = $base**$exp;
        $fltb = $flta % $target;
        if ( $fltb == 1 ) {
            next PRIMALITY;
        }
        else {
           return;
        }
    }
    $i = $i + 1;
    return $target;
}

##</code><code>##

1 is prime number 0
2 is prime number 1
3 is prime number 2
5 is prime number 3
7 is prime number 4
11 is prime number 5
...