perl -e 'open strict, ">&", STDOUT or die; use strict; print strict foobar, "\n";'