you could do these:

using a pipe:

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

using backquotes:

my @test = `perl -w test_two.pl`;
[download]