sub context {wantarray ? "LIST" : "SCALAR"}
    my $context = (context);
    print $context, "\n";
    __END__
    SCALAR