DB<1> use strict; my $N = $N;
Global symbol "$N" requires explicit package