my @result = ();
open (TEST, "perl D:\\Perl\\bin\\linklint-2.3.5 http://www.perlmonks.org  |");

while (<TEST>){
    push(@result, $_);
}

close TEST;

print "This is result: @result\n";