use mem(@EXPORT=qw(@xmission_flds TorFldN));
  #...
  sub TorFldN(;$) { #...
  }