waitpid($pid, 0);
my @data = (<READER>);

##</code><code>##

my @data = (<READER>);
waitpid($pid, 0);