$self -> dot_input(join('', @{$self -> command -> print} ) . "}\n"); $self -> log(debug => $self -> dot_input); my($stdout, $stderr); IPC::Run::run([$driver, "-T$format"], \$self -> dot_input, \$stdout, \$stderr);