Select Code to Download

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

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