$ perl -Mstrict -Mwarnings -le'*_=sub{"hi"}; print &_'
hi