#!/usr/bin/perl 
use strict ; 
my @list = 1..10000; 
foreach $a (@list) { 
	my@total=(); 
		foreach $b(@list) { 
			if ((int($a/$b)==($a/$b))) { 
				push @total, $b;	 
			} 
		} 
		print "$a is prime\n" if ($#total == 1); 
	 
} 
print time - $^T;