<code>  	
	use strict;
	use warnings;
	#finds prime numbers between two points;

print "Please enter the values for the 2 numbers between which you wish to 

find the primes.\n";
$x=<STDIN>; chomp($x); print "\n"; 	#user inputs point x;	
$y=<STDIN>; chomp($y); print "\n";	#user inputs point y;
for($i==$x; $i==$y; $i++){
	$even=0;
	$notprime=0;
	$j=$i/2;
	if(int($j)==$j){
		$even=1;		# tests to see if it is even;
	}	
	else{
		$n=$i**(1/2);
		for($m=3; $m=$n; $m+=2){
			$o=$i/$m;
				if(int($o)==$o){
					$notprime=1;
	}
		}	
			}	

	if($even==0 && $prime==0){
		print "$i is prime!\n";

		}
	}
		

$q=<STDIN>; # stops the program from closing...;