open($fh1, '>>', \$s1) or die "Can't restore fh1";