C:\>perl -wMstrict -MO=Deparse -e "my DB $x"
BEGIN { $^W = 1; }
use strict;
my DB $x;
-e syntax OK