BEGIN {
    *STDERR = *STDOUT;
}

##</code><code>##

test.pl > results.txt

##</code><code>##

perl test.pl > foo.txt 2>&1