Help for this page
#!c:/perl/bin/perl.exe ... print $q->header; print qq{*$_*} for @lines;
<html> <head> ... </form> </body> </html>
*one**two**three*
*one **two **three*