$ perl -le '
    my $code = sub {
       print wantarray
             ? "list"
             : "scalar" };
    sub foo { &$code }
    () = foo; foo'