use Local::TeeOutput;

openTee(*STDOUT, ">$LogFile");
select(STDOUT);
$|=1;
print "Something"
closeTee(*STDOUT);