open (logHdle, ">C:/path2log.txt");
open (progHdle, "ping somehost|");

while(<progHdle>)
{
    print logHdle $_ ;
    print STDOUT $_;
}
close(logHdle);
close(progHdle);