Think about this code in context of redirecting STDOUT, STDERR:

#!/usr/bin/perl

use strict;
use warnings;

use POSIX qw(:errno_h ceil floor :sys_wait_h);

my @run = ( ‘ls’, ‘-al’ );
my $pid = fork();
die “Unable to fork $!” unless defined($pid);
if (!$pid) { # child
open(LOG,”>”, “foo-log.log”);
#close(STDERR);
#close(STDOUT);
#open STDERR, “>>&LOG”;
#open STDOUT, “>>&LOG”;
*STDERR = *LOG;
*STDOUT = *LOG;
print LOG “PRINT TO LOG\n\n”;

exec { $run[0] } @run;
die “Unable to execute: $!”;
}
waitpid($pid, WNOHANG);

and output is shown on terminal not in log file:

but when running this:

#!/usr/bin/perl

use strict;
use warnings;

use POSIX qw(:errno_h ceil floor :sys_wait_h);

my @run = ( ‘ls’, ‘-al’ );
my $pid = fork();
die “Unable to fork $!” unless defined($pid);
if (!$pid) { # child
open(LOG,”>”, “foo-log.log”);
close(STDERR);
close(STDOUT);
open STDERR, “>>&LOG”;
open STDOUT, “>>&LOG”;
#*STDERR = *LOG;
#*STDOUT = *LOG;
print LOG “PRINT TO LOG\n\n”;

exec { $run[0] } @run;
die “Unable to execute: $!”;
}
waitpid($pid, WNOHANG);

Everything is ok, maybe you know why:

*STDERR = *LOG;
*STDOUT = *LOG;

doesn’t work?