#open(LOUTPUT,"lastoutput") or die "Unable To Open lastoutput File. 
#Please Ensure That This File Exists And Contains On One Line. This File 
#Must Only Contain Numbers";
#$number=<LOUTPUT>;
$number=3;
#close(LOUTPUT);
$divisor = 2;
test();
sub test() {
# Un-Comment The Next Line For More Output
#print("NUM=$number DIV=$divisor\n");
if ($number / $divisor == int($number / $divisor)) {
# Number Is Prime
	if ($number == $divisor) {
	print("Prime $number\n");
#	open(OUTPUT,">>output");
#	print(OUTPUT "$number\n");
#	close(OUTPUT);
	}
# Number Is Not Prime
	$divisor = 2;
	$number = $number + 1;	
}
$divisor = $divisor + 1;
#sleep(1);
test();
}
#	open(LOUTPUT,">lastoutput");
#	print(LOUTPUT "$number");
#	close(LOUTPUT);