#!/usr/bin/perl
#File: mersenne_is_prime.pl
#Author: Prabou MOUTTOU
#Description: tester si un nombre de Mersenne est premier
#Version: 01 October 2014

use strict;
use warnings;

my $nombre=$ARGV[0];

#appel du script mersenne.pl pour calculer le nombre de Mersenne
my $mersennenbre=`/usr/bin/perl /root/mersenne.pl $nombre`;

#appel du script is_prime.pl pour determiner s'il est premier
print "le nombre de Mersenne M$nombre=";
system("/usr/bin/perl /root/is_prime.pl $mersennenbre");
