Select Code to Download

#!perl -l
use IPC::Open3;
...
while (<ERRFH>) {
   print "Received error message <$_>";
}

#!perl

for (1..5) {
    print STDERR "Message $_\n";
}

Received error message <Message 1
>
...
>
Received error message <Message 5
>