perl -e 'undef %::; sub{}->()'