open(ARTICLE, '-|', "caesar <$article")     # decrypt article                       
  or die "Can't start caesar: $!";                         

##</code><code>##

open(FH, '-|', "myscript.pl") or die "He's dead, Jim :$!";
while(<FH>) {
  do whatever with output form myscript
}
close(FH);