#!/usr/bin/perl

use warnings;
use strict;

my $youremail = "you\@email.de";
my $b_email   = "me\@email.de";

my $day = 3;
my @months = qw(Januar Februar März April Mai Juni Juli August September Oktober November Dezember);
my $month = 9;
my $year = 2021;
my $hour = 14;
my $min = 10;
my $sec = 50;

my $b_first = "Max";
my $b_last  = "Mustermann";
my $b_addr  = "";
my $b_addr2 = "Mustergasse 15";
my $b_zip   = 54321;
my $b_city  = "München";
my $b_phone = "01234/5678";
my $b_fax   = "01234/56710";

my $QUANTITY_1 = 10;
my $QUANTITY_2 = 10;
my $QUANTITY_3 = 10;
my $QUANTITY_4 = 10;
my $QUANTITY_5 = 10;
my $QUANTITY_6 = 10;

my $ID_1 = 12345;
my $ID_2 = 12345;
my $ID_3 = 12345;
my $ID_4 = 12345;
my $ID_5 = 12345;
my $ID_6 = 12345;

my $NAME_1 = "Mustermann";
my $NAME_2 = "Mustermann";
my $NAME_3 = "Mustermann";
my $NAME_4 = "Mustermann";
my $NAME_5 = "Mustermann";
my $NAME_6 = "Mustermann";

my $PRICE_1 = 25;
my $PRICE_2 = 25;
my $PRICE_3 = 25;
my $PRICE_4 = 25;
my $PRICE_5 = 25;
my $PRICE_6 = 25;


my $ADDTLINFO_1 = "Angebot";
my $ADDTLINFO_2 = "Angebot";
my $ADDTLINFO_3 = "Angebot";
my $ADDTLINFO_4 = "Angebot";
my $ADDTLINFO_5 = "Angebot";
my $ADDTLINFO_6 = "Angebot";

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