Help for this page
sub adedtear{ ... print $bar $foo->textarea({-id=>'t001', -name=>'none', -value=>"$linev +alis"}) or die "cant print linevalis into textarea cgi: $!\n";&n; }
sub adedtear{ ... print $bar $foo->textarea({-id=>'t001', -name=>'none', -value=>"\n$lin +evalis"}) or die "cant print linevalis into textarea cgi: $!\n";&n; }