print bleah(), "\n";

sub context {
    return wantarray() ? "List" : "Scalar";
}

sub bleah {
    return ( "Context: " . context() );

##</code><code>##

print bleah(), "\n";

sub bleah {
    return ( "Context: " 
             . &{sub { wantarray() ? "List" : "Scalar" }}() );
}