$ say '$^D=$^D; sub foo {}'
0
 $ say '$^D=$^D; (); sub foo {}'
 $