#!c:/perl/bin/perl -w
use strict;

####List of Primes. If I made a mistake please let me know!
my @primes = (2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97);
my $goal;


Get_Target();
Guess_and_Compare();

sub Get_Target{
   ###Gets two random primes a creates the goal.
   my $i = @primes;
   my $value1 = int(rand($i));
   my $value2 = int(rand($i));
   $goal = $primes[$value1] * $primes[$value2];   
}

sub Guess_and_Compare{
   ###Gets user input, and figures if you are right or not.
   my $try = 1;
   my $total = 0;
   while ( $goal != $total ){
      print "LIST OF PRIMES:\n@primes\n";
      print "Your goal is: $goal\n";
      print "Enter you first prime: ";my $guess1=<STDIN>;
      print "Enter you Second prime: ";my $guess2=<STDIN>;
      chomp($guess1, $guess2);
      $total = $guess1 * $guess2;
      if ( $total == $goal ){
         print "You got it in $try tries.\nThe Answer was, $guess1 and $guess2 is $total\n";
      }
      else{
         print "The answer $guess1 and $guess2 is $total, is incorrect.\n\n";
      }
      $try++;
   } 
}