perl -E 'sub foo{$_=wantarray?"list":"scalar"}if(foo){say}'