sub prime_number{
        return 0 if (int ($_[0]) != $_[0]);

	foreach my $divider (2..sqrt($_[0])) {
		my $quotient = $_[0] % $divider;
		return 0 if ($qoutient == 0);
	}
	return 1;
}