open(my $pipe, '-|', (
    $pback => ( $set, "*/$testqueue[0]" )
)
    or die("Can't launch $pback: $!\n");

my $out = '';
{ local $/; $out = <$pipe>; }