my $result = `ping host 2>&1`;

##</code><code>##

system("ping host >result.txt 2>&1");