Select Code to Download

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;
}