sub testc {
    if (defined wantarray() and not wantarray()) {
        print "scalar\n";
    } elsif (defined wantarray() and wantarray()) {
        print "array\n";
    } elsif (not defined wantarray()) {
        print "void\n";
    }
}
my $x = testc();
my @x = testc();
testc();
[download]