$ perl -fle " sub Snacks::Ahoy { q{Nom} } open Snacks, q{>}, \q{}; print $Snacks::{Ahoy}->() "
Nom

$ perl -fle " sub Snacks::Ahoy { q{Nom} } open Snacks, q{>}, \q{}; print bless(\(my$q=\{Snacks}),q{Snacks})->Ahoy "
Nom

$ perl -fle " sub Snacks::Ahoy { q{Nom} } sub Snacks { q{Rice} } print Snacks::->Ahoy "
Nom

$ perl -fle " sub Snacks::Ahoy { q{Nom} } open Snacks , q{<}, \q{Rice}; print Snacks::->Ahoy "
Can't locate object method "Ahoy" via package "IO::File" at -e line 1.