> perl
sub context {
    warn
        !defined wantarray
            ? "void" :
        wantarray ? "list" : "scalar",
        $/;
}
@{context()};
<EOF>
scalar