# this works as a bash include
#
#COMM SeqLab::SeqStreamOut

perl -e '
    use lib shift();  # give include precedence to code directory, perl -I would not work!
    use SeqLab::SeqStreamOut;
    # initialise sequence output queue
    our $pSSOut;
    $pSSOut = SeqLab::SeqStreamOut->new();
    $pSSOut->Push({
      id => q(test),
      descr => q(artificial sequence),
      sequence => q(AG-CCTAA),
      });
    # re-initialise sequence output queue
    $pSSOut = SeqLab::SeqStreamOut->new(-pure=>1);
    $pSSOut->Push({
      id => q(test),
      descr => q(artificial sequence),
      sequence => q(AG-CCTAA),
      });
  ' -- "$dircode"  2>&1
