OK Fastolfe, Thanks for writing.
Here is my code:

#! /usr/local/bin/perl 
use Text::Wrap;

# Check Referring URL
&check_url;  # Code not included for clarity

# Parse Form Contents
&parse_form; # Code not included for clarity

# Send E-Mail
&send_mail;  # This is the function we need to deal with!

sub send_mail {
   my $count, $to, $name;

   # When these are commented out, the URL fits beautifully,
   # Only prob is that we need to wrap the text!
   $Text::Wrap::columns=60;
   $FORM{'message'} = wrap("","",$FORM{'message'});

   if ($FORM{'fromemail'} eq "") { $FORM{'fromemail'} ="webmaster\@xxx
+.com"; }
   if ($FORM{'from'} eq "") { $FORM{'from'} ="xxx.com"; }
   
   # Process form variables for up to 5 email addresses
   # sent in by the form.
   for ($count=1; $count<=5; $count++) {
           $to     = 'email' . $count;
        $name     = 'name' . $count;
        $type    = 'email_type' . $count;
        if ($FORM{$to} ne "") 
        {
            if ($FORM{$type} eq 'text')
            {
                   open(MAIL,"|$mailprog -t");
                    print MAIL "To: $FROM{$name} <$FORM{$to}>\n";
                   print MAIL "From: $FORM{'from'} <$FORM{'fromemail'}
+>\n";
                            print MAIL "Content-type: text\n";
                   print MAIL "Subject: National Biosolids Partnership
+ Web Site\n\n";
                print MAIL "$FORM{'message'}\n";
                close (MAIL);
               }
               else # it's HTML mail
               {
                   # Grab the header
                   $header = &GetTheHeader ();
                   
                   # Grab the footer
                   $footer = &GetTheFooter ();
                   
                   # Format the message to HTML
                $message = $FORM{'message'};
                   $message =~ s/\n/<BR>/g;
                   $message =~ s|(http\S+\s)|<A href="$1">$1</A>|g;
                   
                   open(MAIL,"|$mailprog -t");
                    print MAIL "To: $FROM{$name} <$FORM{$to}>\n";
                   print MAIL "From: $FORM{'from'} <$FORM{'fromemail'}
+>\n";
                    print MAIL "Content-type: text/html\n";
                print MAIL "MIME-Version: 1.0\n";                     
+          
                   print MAIL "Subject: National Biosolids Partnership
+ Web Site\n\n";
                   
                   print MAIL "$header";
                print MAIL "$message\n";
                print MAIL "$footer";
                   close (MAIL);
               }
        }
   }

   print "Location: $FORM{'redirect'}\n\n";

}
[download]

Cheers!
Robert

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.