use warnings is block-scoped. The file is a block. Since it's being evaled in another file, your use warnings doesn't take effect.

perl -w and $^W = 1; are scopped differently. Use these, or add use warnings inside the q(), and you'll see a gazillion warnings (one for every run).