Select Code to Download

  ...
  my $self = {tok_in => $TOK_IN, tok_out => $TOK_OUT, tok_err => $TOK_
+ERR, tok_program => $tok_program};
...
                       '1>pty>', \$self->{tok_out}, 
                       '2>',     \$self->{tok_err},  debug => 2
      or die "Can't exec program: $?;\n";