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