# this works as a bash include
#
#COMM SeqLab::SeqStreamOut
#COMM - allow value "undef" as an argument to option -file, meaning: "switch output
#COMM   direction to STDOUT".
#
ftmp="$dirtest"/${setstamp}_tmp
perl -e '
    use lib shift();  # give include precedence to code directory, perl -I would not work!
    use SeqLab::SeqStreamOut;
    our $pSSOut;
    $pSSOut = SeqLab::SeqStreamOut->new(-file=>$ARGV[0]);
    $pSSOut->Push({
      id => q(test),
      descr => q(artificial sequence),
      sequence => q(AGCTAA),
      });
    $pSSOut->AddSwitch(-file=>undef);
    $pSSOut->Push({
      id => q(test),
      descr => q(artificial sequence),
      sequence => q(CTAG),
      });
  ' -- "$dircode" "$ftmp"
echo ---
cat "$ftmp"
rm "$ftmp"
