use autouse WQ_Finish => qw(EmailQuote QuotePage genHTMLquote genTextQuote zoneBreak);

...

$QteExpires = '30 days';
$QtePostscript =    'Terms: Net 30 days. FOB Anytown, USA. Freight prepaid & add. Subject to Company terms and conditions. ' . $crlf .
                    'Company makes every effort to meet acceptable delivery dates; however, the lead times quoted are only estimated ' .
                    'dates of delivery. Company disclaims liability for delays in delivery. Contact the factory after placing your ' .
                    'order for information regarding current availibility and shipping estimates. All lead times are ARO.';

...

QuotePage();     # Display quote for user preview

...

EmailQuote();    # Send quote to customer

##</code><code>##

local $crlf = "\x0d\x0a";

##</code><code>##

     $retval .= '<b><i>This quote is good for ' . $main::QteExpires . ' from the date above.</i></b><br><br>' . $crlf;
     if ($main::QtePostscript ne '') { $retval .= '<font size=-1>' . main::esc2HTML($main::QtePostscript) . '</font>' . $crlf; }

##</code><code>##

sub esc2HTML {                     # Convert plain text to HTML (&s, <s, >s, "s, double spaces, etc.)
     my $retval = shift;
     $retval =~ s/\&/\&amp\;/g;
     $retval =~ s/\</\&lt\;/g;
     $retval =~ s/\>/\&gt\;/g;
     $retval =~ s/\"/\&quot\;/g;
     $retval =~ s/  /\&nbsp\; /g;
     $retval =~ s/\n\n/\n/g;
     $retval =~ s/\n/\<br\>\<br\>\n/g;
     return $retval;
}