Help for this page

Select Code to Download


  1. or download this
    #!/opt/local/bin/perl -w
    use IPC::Run qw( run new_chunker );
    ...
    }
    print "*-*-end_run-*-*\n";
    close(LOG);
    
  2. or download this
    run (\@cmd, '>pty>', sub{ print "$_[0]";}, '2>', sub { print "<b><big>
    +STDERR: $_[0]</b></big>";}) or die("Error executing child. Child retu
    +rned $&\n");