Select Code to Download

my $data = ` ... `;
print "Got data length [$data]\n";

open PIPE, " ... | ";
while( <PIPE> )
...
    print;
    }
close PIPE or die "Got error [$!|$?]\n";