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;
}