sub Foo::foo {say "Hello"};
bless [], "Foo"->${\"foo"};
__END__
Hello