Help for this page
#Works local *LOG; ... #Works openTee(*STDOUT, *STDOUT, 'test.out');
open($fh, "+<", \$string);