Test básico de primalidad. Cálculo de números primos.

#!/usr/bin/perl
#Mi primer programa en Perl :')
#Author @roobre (Roberto Santalla)
#[email protected]; [email protected]

use strict;

print "Inserta el número hasta el cual contará el programa: ";
my $num = <>;
my $i;
my $mod = -1;
my @primos;
my $tinit = time();
my $hasta;

while($num >= 4) {
    print "Probando divisiones para el número $num\n";
    $i = 2;
    $hasta = $num/2 + 1;
    while($i < $hasta && $mod != 0){
        $mod = $num % $i;
        $i += 1;
    }
    if ($mod != 0) {
        $primos[++$#primos] = $num;
    }
    $num = $num -1;
    $mod = -1;
}
my $tfin = time();
$primos[++$#primos] = 3;
$primos[++$#primos] = 2;
$primos[++$#primos] = 1;

print "\n\nSe encontraron los siguientes números primos:\n\n";

foreach(@primos){
    print "$_; ";
}
my $tgastado = $tfin - $tinit;
print "\n\nSe han tardado $tgastado seg. en calcular los números primos\n\n";
print "Se han encontrado ". ++$#primos ." números primos\n\n";