my $w = wantarray;
$w = defined $w ? ($w ? 'list' : 'scalar') : 'void';
carp "wantarray : $w ";