my $logfile = "logfile.log";

open(my $logfh, ">", $logfile) or die "Konnte $logfile nicht öffnen ($!)";

close(STDOUT);
close(STDERR);
*STDOUT=$logfh;
*STDERR=$logfh;