# PICK ONE OF TWO OPEN OPTIONS BELOW #1#print STDERR "Option 1\n"; open($fh1, '>&', $fhSave) or die "Can't restore fh1"; #2#print STDERR "Option 2\n";open($fh1, '>', \ substr($s1, length($s1)) ) or die "Can't restore fh1";