. . .
use IPC::Run qw( start pump finish timeout new_appender new_chunker);
. . .

sub cmd
  {
    my $self = shift;
    my $cmd = shift;
    my $cmdline = shift;
    my $args = shift;

    my $conf;
    my $cfgcmd;
    if ( (grep $_ eq $cmd,qw(req ca)) && !$args->{noconfig})
      {
  $conf = $self->{csp}->writeConfig($cmd,$args);
  $self->{csp}->die("Unable to write configuration file") unless -f $conf;
  $cfgcmd = " -config $conf ";
      }
    elsif ($cmd eq 'x509' && !$args->{noconfig})
      {
  $conf  = $self->{csp}->writeConfig($cmd,$args);
  $self->{csp}->die("Unable to write configuration file") unless -f $conf;
  $cfgcmd = " -extfile $conf -extensions extensions ";
      }
    $cmd = '' if $cmd eq 'dummy';

    ${$self->{_in}} = "$cmd $cfgcmd $cmdline";
    
    if ($ENV{CSPDEBUG}) {
      $self->warn("Here I am");
      $self->warn("# openssl $cmd $cfgcmd $cmdline\n");
    }
    $self->{_handle}->pump while length ${$self->{_in}};
    $self->{_handle}->finish;
. . .