print "Captured >>$x<<".
<c>$ perl -le '$x=`./asdf 2>&1`;print ">>$x<<"'
>>output to stdout
output to stderr
<<