#NOTE: Depending on certain conditions, I need either stat or lstat.
if (...) { stat($Filename) } else { lstat($Filename) }

#Current code uses this format:
# if (-X _) {...}

#Possible new code (including only the tests I need to use):
my %Stat =
(
r => (-r _),
w => (-w _),
x => (-x _),
s => (-s _),
...
);
if ($Stat{r}) {...}