$ perl -wMstrict -MO=Deparse -e 'my DB $x'
BEGIN { $^W = 1; }
use strict;
my DB $x;
-e syntax OK
$