use warnings;
use strict;

print "here it goes...\n";
my $return_val = open(my $article, "-|", "caesar <article");
#    or die "Can't start caesar: $!";  
print "tried it and got [$return_val]\n";