$ perl -wE 'use strict; say -foo'
-foo