Select Code to Download

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

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