$ perl -fle " sub Snacks::Ahoy { q{Nom} } open Snacks , q{<}, \q{Rice}; local *Snacks; print Snacks::->Ahoy "
Nom