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 '