perl -we 'eval "use warnings; $foo = { bar => () };";