# this works as a bash include
#
#COMM MainLib::Data
#COMM - read via &DataRead and re-write via &DataPrint
#
function homogaddr {
  perl -n -e 's/(ARRAY|HASH)\(0x\w{5,8}\)/$1(0x123ABC)/; print' "$@"
}
perl -e '
  use strict;
  use lib shift();  # give include precedence to code directory, perl -I would not work!
  use MainLib::Data;
  my $st=&DataRead($ARGV[0]);
  &DataPrint($st,-handle=>\*STDOUT);
  ' -- $dircode $dirtest/test_DataIO_in1.dat  \
| homogaddr
