# this works as a bash include
#
# test FileHandle::InBuffer
# - esp. tell()
#
perl -e '
    use lib shift();  # give include precedence to code directory, perl -I would not work!
    use FileHandle::InBuffer;
    $h=FileHandle::InBuffer->new($ARGV[0]);
    print $h->tell(),qq(\n);
    $s1=<$h>;
    print $h->tell(),qq(\n);
    $h->ungets qw(xxx);
    print $h->tell(),qq(\n);
    $s2=<$h>;
    print $h->tell(),qq(\n);
  ' "$dircode" "$dirtest"/test_FHB_in1.txt
