Per = bwperim(img);
[r,c]=size(Per);
p=1;
z = nnz(Per);
cord = zeros(z,2);
for i=1:r
    for j=1:c
        if (Per(r,c)) == 1
             cord(p,1)=i;
             cord(p,2)=j;
             p=p+1;
               p=p+1;
        end
    end
end
      








