my $home = $ENV{HOME}
        || $ENV{LOGDIR}
        || (getpwuid($<)[7]
        || die "You're homeless!\n";

##</code><code>##

@a = @b || @c;            # This doesn't do the right thing
@a = scalar(@b) || @c;    # because it really means this.
@a = @b ? @b : @c;        # This works fine though.