##
my $test = `perl -v `;
print "this is test: $test\n";
##
##
my @result = ();
open (TEST, "perl D:\\Perl\\bin\\linklint-2.3.5 http://www.perlmonks.org |");
while (){
push(@result, $_);
}
close TEST;
print "This is result: @result\n";