% perl -e 'sub STDOUT{\*STDOUT} eq <+STDOUT> or die' Died at -e line 1.