test-03.pl:
    open (TOP, "/usr/bin/env -i COLUMNS=1000 /usr/bin/top -bcS -n 1 2>err.txt |")

$ ./test-03.pl
81