$ perl -le" print bless {}, PENDULUM; "
PENDULUM=HASH(0x3f9adc)

$ perl -le" sub PENDULUM { 666 } print bless {}, PENDULUM;  "
666=HASH(0x3f9adc)