how to define a new section-like environment [duplicate]

If a section heading arrives at the end of a page, and there is no more space to include the later text body, the section heading will be shifted to the next page (the section, subsection, ..., all have this property, by default).

Now, I want to define a new section-like environment. This environment has a red line below of its heading and we can insert our text underneath this line.

-