#!/usr/bin/perl

use strict;
use warnings;
use Math::Prime::XS qw(is_prime);

my $prime = shift @ARGV;
if (is_prime($prime)) {
        print "prime", "\n";
}
else {
        print "not prime", "\n";
}