use warnings; use strict;

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