Select Code to Download

#!/usr/bin/perl
use warnings;
...
}  
my $time = (time() - $start);  
print "Took $time seconds.";

Printing the first 100 numbers that are prime... 
4 is prime
...
132 is prime
133 is prime
Took 0 seconds.