A slightly more complex example

use warnings; use strict;

open(ABC, "echo How to run a shell script from a Perl program |./abc.s
+h & 2>1|");
print <ABC>;
close ABC;
[download]