package pak;

__PACKAGE__->run(@ARGV) unless caller();

use IPC::Run qw(start pump finish timeout);

sub run {
    ref(my $class= shift) and die "Class name needed";

    $|++;

   my $tok_program = "/bin/./cat";
   my @tok_param=();

   my $pokus = $class->new($tok_program,@tok_param);
   $pokus->{tok_in}="hallo\n";
   do{
     print "zz::$pokus->{tok_in};;$pokus-> {tok_out};;$pokus->{tok_err};;".length($pokus->{tok_in})."\n";
      $pokus->{tok}->pump;
      print "kk\n";
 }
  while  $pokus->{tok_out} !~ /\n\z/; #$r

}#sub run

sub new{
  ref(my $class= shift) and die "Class name needed";

  my $tok_program = shift;
  my @tok_param = @_;

  my ( $TOK_IN, $TOK_OUT, $TOK_ERR, $TOK );


  $TOK = start [ $tok_program, @tok_param ], '<', \$TOK_IN, '1>pty>', \$TOK_OUT, '2>',
      \$TOK_ERR, debug => 2
      or die "Can't exec program: $?;\n";


  my $self = {tok => $TOK, tok_in => $TOK_IN, tok_out => $TOK_OUT, tok_err => $TOK_ERR, tok_program => $tok_program};
  bless $self,$class;
  return $self;
}