open (my $ARTICLE, "-|", $shell_command)

##</code><code>##

open (my $ARTICLE, "-|", "cmd", "/x", "/c", $shell_command)