Help for this page
use warnings; use strict; ... --> </body> </html>
$ perl tst.pl <html> ... <body> </body> </html>