perl -MB::Deparse -e"foo()"