#!/usr/bin/perl -w
use strict;

my($program) = 'cat';
my(@ary);

open(CAT,"$program ~/foo.txt |") || die "Unable to run $program: $!\n";
foreach (<CAT>) {
  push @ary, $_;
  print "$_";
}

close(CAT);