open (XX, "perl -w test_two.pl |");
my @test = <XX>;
close (XX);