$ perl -le 'sub f{wantarray?"list":"scalar"}print"${\(f())}"'
list