print $_ $log for \*STDOUT, \*R;