$ perl -e'$x="1"; $x->otherwise'
Can't call method "otherwise" without a package or object reference at -e line 1.