use Mail::Sender;
...
my  $sender = new Mail::Sender {smtp => $smtpServerName, from => $emailFromAddress};
my $result = $sender->MailFile({
	to => [@emailToList],
	cc => [@emailCCList],
	subject => "Stats (Day $day of $month/$year)" . ($errors?" - Partial results":''),
	msg => "Stats for day $day of $month/$year are attached." . ($errors ? "\n\nErrors encountered:\n$errors\n" : ''),
	file => $filename,
});