$ perl -e'use strict; my $attr; $attr |= READONLY'
Bareword "READONLY" not allowed while "strict subs" in use at -e line 1.
Execution of -e aborted due to compilation errors.