perl -le 'print ref(bless{},"Hello World")'