System error

error:  Error during compilation of /home/martink/www/htdocs/snowflakes/autohandler:
Bareword "FORBIDDEN" not allowed while "strict subs" in use at /home/martink/www/htdocs/snowflakes/autohandler line 6.
context: 
... 
2:  <%init>
3: 
4:  my $ip = $ENV{REMOTE_ADDR};
5: 
6:  $m->abort(FORBIDDEN) unless $r->connection->user;
7: 
8:  use Data::Dumper;
9:  use Storable;
10:  use Number::Format qw(format_number);
... 
code stack:  /usr/local/share/perl5/5.32/HTML/Mason/Interp.pm:450
/usr/local/share/perl5/5.32/HTML/Mason/Interp.pm:773
/usr/local/share/perl5/5.32/HTML/Mason/Component.pm:333
/usr/local/share/perl5/5.32/HTML/Mason/Request.pm:440
raw error






























Error during compilation of /home/martink/www/htdocs/snowflakes/autohandler:
Bareword "FORBIDDEN" not allowed while "strict subs" in use at /home/martink/www/htdocs/snowflakes/autohandler line 6.



Trace begun at /usr/local/share/perl5/5.32/HTML/Mason/Interp.pm line 851
HTML::Mason::Interp::_compilation_error('HTML::Mason::Interp=HASH(0x7f4580029f68)', '/home/martink/www/htdocs/snowflakes/autohandler', 'HTML::Mason::Exception::Compilation=HASH(0x7f457e447d28)') called at /usr/local/share/perl5/5.32/HTML/Mason/Interp.pm line 450
HTML::Mason::Interp::load('HTML::Mason::Interp=HASH(0x7f4580029f68)', '/snowflakes/autohandler') called at /usr/local/share/perl5/5.32/HTML/Mason/Interp.pm line 773
HTML::Mason::Interp::find_comp_upwards('HTML::Mason::Interp=HASH(0x7f4580029f68)', '/snowflakes', 'autohandler') called at /usr/local/share/perl5/5.32/HTML/Mason/Component.pm line 333
HTML::Mason::Component::parent('HTML::Mason::Component::FileBased=HASH(0x7f45520f9170)') called at /usr/local/share/perl5/5.32/HTML/Mason/Request.pm line 440
eval {...} at /usr/local/share/perl5/5.32/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x7f4551fcae18)') called at /usr/local/share/perl5/5.32/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x7f4551fcae18)') called at /usr/local/share/perl5/5.32/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x7f45800303d8)', 'Apache2::RequestRec=SCALAR(0x7f457402f360)') called at (eval 25) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x7f457402f360)') called at -e line 0
eval {...} at -e line 0