$ cat producer.pl 
#!/usr/bin/env perl
use warnings;
use strict;

print "Pretend this is your table.\n";

$ cat consumer.pl 
#!/usr/bin/env perl
use warnings;
use strict;

while ( my $line = <> ) {
	chomp($line);
	print "I received: <<$line>>\n";
}

$ ./producer.pl | ./consumer.pl 
I received: <<Pretend this is your table.>>

$ ./producer.pl >table.txt
$ ./consumer.pl table.txt
I received: <<Pretend this is your table.>>