Help for this page
for ($i=1;$i<=$max;$i++){ ... print qq("$dept$w$i"\t>\t"$pwd"\n); }
for ($i=1;$i<=$max;$i++){ ... print newDB qq("$dept$w$i"\t>\t"$pwd"\n); }