P1: my $lflag = ( -l 'foo' ); # seems good
P2: makes foo a link - uh oh!
P1: $lflag or open my $fh, ">>foo"; # does it fine, since $lflag was set before
P2: remove that link, lickity-split!
P1: $lflag = ( -l 'foo' ); # whups, everything *seems* ok...