Using eval would delay the directive to runtime, but it needs to be active at runtime to affect code.

>perl -e"eval 'use warnings; 1' or die $@; print undef;"

>perl -e"use warnings; print undef;"
Use of uninitialized value in print at -e line 1.
[download]

And you can't wrap it in a BEGIN because that would introduce a lexical scope.