perl -I. -MBark -we 'Bark->function_cat'