Numeros Primos

#! usr/bin/perl

print ' Inserta el numero que quieras comprobar si es primo ';
my $num = <STDIN>;
chop($num);
for($i=2;$i < $num; $i++)
{
  if($num % $i == 0)
  {
    print '$num No es primo \n';
    last
  }
  else
  {
    print '$num es primo \n';
    last
  }
}