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");