Select Code to Download

open(my $pipe, '-|', (
    $pback => ( $set, "*/$testqueue[0]" )
...

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