perl -MBenchmark=cmpthese -wle 'cmpthese(1, { context => q{print wantarray ? "list" : defined(wantarray) ? "scalar" : "void"}})'