# Send email order to you... open (MAIL,"|$mailprogram"); print MAIL "To: $youremail\n"; print MAIL "From: $b_email\n"; print MAIL "Subject: Online Bestellung\n"; print MAIL "\n\n"; print MAIL "Online Bestellung.\n"; print MAIL "\n"; print MAIL "Bestelldatum: $day. $months[$month] $year $hour:$min:$sec \n"; print MAIL " \n"; print MAIL "Rechnungsanschrift: \n"; print MAIL "-------- \n"; print MAIL " $b_first $b_last \n"; print MAIL " $b_addr \n"; print MAIL " $b_addr2 \n"; print MAIL " $b_zip $b_city \n"; print MAIL " $b_phone \n"; print MAIL " $b_fax \n"; print MAIL " $b_email \n"; print MAIL " \n"; print MAIL " \n"; print MAIL "Menge Produkt Name - Preis(Euro)\n"; print MAIL "===================================================================== \n"; print MAIL "$QUANTITY_1 $ID_1 - $NAME_1 Euro $PRICE_1 $ADDTLINFO_1 \n"; if( $NAME_2 ) {print MAIL "$QUANTITY_2 $ID_2 - $NAME_2 Euro $PRICE_2 $ADDTLINFO_2 \n";} if( $NAME_3 ) {print MAIL "$QUANTITY_3 $ID_3 - $NAME_3 Euro $PRICE_3 $ADDTLINFO_3 \n";} if( $NAME_4 ) {print MAIL "$QUANTITY_4 $ID_4 - $NAME_4 Euro $PRICE_4 $ADDTLINFO_4 \n";} if( $NAME_5 ) {print MAIL "$QUANTITY_5 $ID_5 - $NAME_5 Euro $PRICE_5 $ADDTLINFO_5 \n";} if( $NAME_6 ) {print MAIL "$QUANTITY_6 $ID_6 - $NAME_6 Euro $PRICE_6 $ADDTLINFO_6 \n";}