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