perl -wE " $x = q{txt}; sub ref {return $x . q{r};}; say &ref($x); "
perl -wE " $x = q{txt}; sub ref {return $x . q{r};}; say ref($x); "
perl -wE " $x = q{txt}; sub say {return $x . q{r};}; say &say($x); "
perl -wE " $x = q{txt}; sub say {return $x . q{r};}; say say($x); "
perl -E " say $^V "