# this works as a bash include
#
#PRIO 1.5
#COMM MainLib::Data -- read and re-write custom data structure
#COMM - basically tested with set DataIO1
#COMM - esp. input argument "-" => unread via FileHandle::Unget
#
cat $dirtest/test_${setid}_rslt  \
| perl -e '
  use lib shift();  # give include precedence to code directory, perl -I would not work!
  use MainLib::Data;
  $d=&DataRead(q(-));
  &DataPrint($d,-NoMyRef=>1,-NoAddr=>1);
  ' "$dircode"
