use File::Tee qw(tee);
open my $LOGFILE, '>>', $logFileName or die $!;
tee STDOUT, '>>&', $LOGFILE or die $!;
...