#!/usr/bin/perl
use warnings FATAL => qw( all );
warn "hello there";
{ # line 4 (notice its in a block)
  BAREWORD;
  BAREWORD;
  BAREWORD;
}