use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init( { level => $INFO, file => $logfile } );

INFO "Start process...";
# lots of stuff here
my $sender = Email::Stuffer->new;
set_transport($sender); # set up SMTP
# construct email here, then
my $sent = $sender->send;
if ( $sent ) {
	INFO "Email sent...";
}
# ...