$ perl -we'use strict; @_ = (-foo, "bar")'

$ perl -we'use strict; @_ = (foo, "bar")'
Bareword "foo" not allowed while "strict subs" in use at -e line 1.