gistfile1.perl

pmichaud@orange:~/rakudo$ cat abc
say 'STDOUT: foo 0';
warn 'STDERR: foo 1';

{
    my $*OUT = $*ERR;
    say 'STDERR: foo 2';
}

say 'STDOUT: foo 3';

pmichaud@orange:~/rakudo$ ./perl6 abc
STDOUT: foo 0
STDERR: foo 1 at line 2:abc
STDERR: foo 2
STDOUT: foo 3
pmichaud@orange:~/rakudo$ ./perl6 abc >/dev/null
STDERR: foo 1 at line 2:abc
STDERR: foo 2
pmichaud@orange:~/rakudo$ ./perl6 abc 2>/dev/null
STDOUT: foo 0
STDOUT: foo 3
pmichaud@orange:~/rakudo$