status_line() and more fixes of http://perl-begin.org/tutorials/bad-elements