use strict;
use warnings;
use POSIX qw ( strftime );

&process_emails;

# E-Mails versenden
use Email::Stuffer;
use Email::Sender::Transport::SMTP;             # Anmeldung an einem SMTP-Server
use utf8;                                                               # korrekte Darstellung von Sonderzeichen
sub process_emails {
        my $email_to            = undef;
        my $email_subject       = 'subject';
        my $email_att           = 'test.xlsx';
        my @email_to            = ( 'Stefan_S <stefan_s@domain.de>' );

        foreach $email_to ( @email_to ) {
                Email::Stuffer  -> subject ( $email_subject.&now )
                                                -> to ( $email_to )
                                                -> from ( 'Sender <sender@domain.de>' )
                                                -> text_body ( "body\n" )
                                                -> attach_file ( $email_att )
                                                -> transport ( 'SMTP', {
                                                        host => 'my_smtp_server.de',
                                                        port => 25,
                                                        sasl_username => 'sender@domain.de',
                                                        sasl_password => 'passwort',
                                                        })
                                                -> send;
        };
}


# aktuelles Datum und aktuelle Uhrzeit ermitteln
sub now {
        my $now = strftime ( "%d.%m.%y", localtime ) . "  " . strftime ( "%H:%M:%S", localtime ) . "  :  ";
        return $now;
}