$ perl -E'say 2304 & 255' 0 #### $ perl -E'say 2304>>8' 9 #### $ perl -E'say $!=(2304>>8)' Bad file descriptor
## $ perl -E'say 2304>>8' 9 ##
## $ perl -E'say $!=(2304>>8)' Bad file descriptor