How about something like this:

open F,"somecmd |" or die "error spawning command $!";
my $data='';
while(<F>){
  $data.=$_;
  print;
}
close F;
[download]