This is why I used

use Fcntl qw(LOCK_SH);
[download]

in On Parsing Perl, because most people don't know that LOCK_SH is similarly prototyped: as a regular unprototyped function, not a constant with no parameters, so LOCK_SH / ... begins a regular expression, not a divide.