--- a/prime	Sat Oct 29 22:18:16 2011 +0200
+++ b/prime	Sat Oct 29 22:27:47 2011 +0200
@@ -39,11 +39,12 @@
     my $m = $_[0];
 
     my @divisors;
-    for (my $i = 2 ; $i <= $m ; $i++) {
+    for (my $i = 2 ; $i <= $m/2; $i++) {
         if ($m % $i == 0) {
             push @divisors, $i;
         }
     }
+    push @divisors, $m;
     return @divisors;
 }