# this works as a bash include
#
# MainLib::Data
# - esp. reading in conjunction with use of FileHandle::Unget
#
perl -e '
    use lib shift();  # give include precedence to code directory, perl -I would not work!
    use MainLib::Data;
    $st=&DataRead($ARGV[0]);
    &DataPrint($st,-handle=>\*STDOUT);
  ' "$dircode" "$dirtest"/test_DataIO_in2.dat  \
| grep -v '^__my_ref'  \
| perl -n -e 's/(ARRAY|HASH)\(0x\w{5,8}\)/$1/; print'
