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