Help for this page

Select Code to Download

Select or download this

 run( \@cmd, '>pty>', sub { print "$_[0]"; },
        '2>', sub { chomp $_[0]; print "<b><em>$_[0]</em></b>\n"; } )
      or warn("Error executing child. Child returned $?\n");

Select or download this

 run( \@cmd, '>pty>', sub { print "$_[0]"; },
        '2>pty>', sub { chomp $_[0]; print "<b><em>$_[0]</em></b>\n"; 
+} )
      or warn("Error executing child. Child returned $?\n");