- my($reader,$writer)=(new IO::Handle, new IO::Handle);
- sshopen2("root\@$machine", $reader, $writer, "mysql --user=$user -p $db");
+ my($reader,$writer,$error)=(new IO::Handle, new IO::Handle, new IO::Handle);
+ sshopen3("root\@$machine", $reader, $writer, $error,
+ "mysql --user=$user -p $db"
+ );