shell# perl -we 'sub test { otherfunc(); }'