Select Code to Download

#!/usr/bin/perl

...
  carp "Want " . (wantarray ? "array" : "scalar");
  (1,2);
}

Want scalar at t3 line 17
        main::foo() called at t3 line 8
...
Want array at t3 line 17
        main::foo() called at t3 line 12
ret is 1 at t3 line 13.