my @spaziooptions = ($spaziocmd, "-m" , $transref->{'QMANAGER'} ,"-q" , $destination_queue, "-i" , $transref->{'POLLERFILE'} ,"-d" , $destination_filename , "-k" , $transref->{'DATATYPE'}, "-s", $global_hostname, "-c", $cor_id); my $cmdout; my $cmderr; run3 \@spaziooptions, \undef, \$cmdout, \$cmderr; my $cmdexit = $?;