C:\Users\deutoronomy>perl -wMstrict -MO=Deparse -e "my DB $x"
BEGIN { $^W = 1; }
use strict 'refs';
my $x;                    #<-- no DB
-e syntax OK