#use this subroutine to import customer lists

sub print_form{

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

print <<QQBBIIF;
"!CUST","NAME","BADDR1","BADDR2","BADDR3","PHONE1","EMAIL","FIRSTNAME","MIDINIT","LASTNAME","TAXABLE","TAXITEM"<br>
"CUST","$Last_Name, $First_Name","$First_Name $Last_Name","$Street_Address","$City, $State $Zip","$Telephone","$Email_Address","$First_Name","$Initial","$Last_Name","Y","$TAXITEM"
QQBBIIF


}