perl -e"use B::Deparse; foo()"