sub is_prime{
  my $n=shift;
  return 0 if($n != int($n));
  my $m=sqrt($n);
  for(my $c=2;$c<=$m;$c++){
    return 0 if($n/$c == int($n/$c));
  }
  return 1;
}