my $ctp = CGI->new;

my $webmaster = "http\:\/\/www.mysite.com\/";

my @names= $ctp->param;

my @values;
 
 foreach my $name(@names){ 
          
  my $value = $ctp->param($name);
 
  push(@values, $value);

 }

# print "Content-type: text/plain\r\n\r\n";

 my @tone = $ctp->param('tone');
 #print $ctp->p(tone);     
 
my $doob;
#print $ctp->p("@tone");
print "\@tone: @tone\n\n";

if ($tone[0] =~ m/\\n/){ print "[^f]*. globals and carriage returns and zero array value arrays !!\n\n"; }

foreach my $toneadd(@tone){
           if ($toneadd =~ m/\\r\\n/){ print "[^f]*. globals and carriage returns!!\n\n"; $toneadd =~ s/\\r\\n/<\/p><p>/;}
           $doob .= $toneadd;              
           print "\$toneadd: $toneadd\n\n"; 
   }
   
    my @tone = $ctp->param('tone');
                   
          foreach my $toneadd(@tone){
           $line .= "<p>$toneadd<\/p>";
          }
           print $line;

print "\$doob: $doob\n\n";

print "<p>$doob<\/p>\n\n";