$ perl -we 'eval "$foo = { bar => () };";'
Name "main::foo" used only once: possible typo at -e line 1.
Use of uninitialized value in concatenation (.) or string at -e line 1.