print FIL qq(<pic$t name="$nfile"></pic$t>\n)";