Query the prime number by oracle procedure

Get the prime number between 100 and 150:

create or replace procedure getPrime is 
l number(3):=101;
k number(3);
m number(3);
begin
  while l < 150 loop 
    k:= round(sqrt(l),0);--get the sqrt num of L ;
    m:=2;
    loop if mod(l,m)=0 then -- L is not the prime number
      m:=0;
      exit;
    end if;
    m:=m+1;
    exit when m>k;
    end loop;
    if m>0 then  --L is prime number now
      dbms_output.put_line(l);
      end if;
    l:= l+2; --even number is prime number
  end loop; 
end getPrime ;