Select Code to Download

use IPC::Run3 'run3';

...
    run3 \@command, undef, \$r, \$r or die "run3 failed";
    die "command failed, \$?=$?" if $?;
    $r };