>perl -MO=Deparse -MB::Deparse -e"foo()"
use B::Deparse;
foo();
-e syntax OK