my $result = `perl D:\\Perl\\bin\\linklint-2.3.5 http://www.perlmonks.org `;
print "result: $result\n";

##</code><code>##

my $test = `perl -v `;
print "this is test: $test\n";

##</code><code>##

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";