sub getName { (shift)->{name} } print "Hello ", bless({name => "World!\n"})->getName;