$ perl -wMstrict -le 'sub foo { print wantarray?"list":"scalar";
  return 0; }; print( (()=foo()) ? "true" : "false" );'
list
true