diff <(perl -MO=Concise -e 'my DB $x; print $x') \
     <(perl -MO=Concise -e 'my    $x; print $x')