$ perl -e 'open ERROR, "perl -le\"print q/stdout/; print STDERR q/stderr/\" 2>&1 1>/dev/null|"; while (<ERROR>) { print }'
stderr