System error

error:

Error during compilation of /home/martink/www/htdocs/snowflakes/autohandler:
"my" variable %ARGS masks earlier declaration in same scope at /home/martink/www/htdocs/snowflakes/autohandler line 126.
"my" variable %ARGS masks earlier declaration in same scope at /home/martink/www/htdocs/snowflakes/autohandler line 71.
Unmatched right curly bracket at /home/martink/www/htdocs/snowflakes/autohandler line 182, at end of line
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 182, near "}"
Unmatched right curly bracket at /home/martink/www/htdocs/snowflakes/autohandler line 173, at end of line
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 173, near "}"
Can't use global $^W in "my" at /home/martink/www/htdocs/snowflakes/autohandler line 192, near "local $^W"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 120, near "}"
Can't use global $^W in "my" at /home/martink/www/htdocs/snowflakes/autohandler line 127, near "local $^W"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 61, near "}"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 139, near "}"
Unknown regexp modifier "/h" at /home/martink/www/htdocs/snowflakes/autohandler line 5, at end of line
/home/martink/www/htdocs/snowflakes/autohandler has too many errors.

context:

1:
2:	<%init>
3:
4:	my $ip = $ENV{REMOTE_ADDR};
5:	if($ip =~ /^35[.]192[.]61) {
6:	$m->clear_buffer;
7:	$m->abort(403);
8:	}
9:
...
57:	"mb"=>{caption=>"The effect of the `\\mu` parameter on the shape of a snowflake.", file=>"snowflakes.m.black", faa=>"21-snowflake-simulation-martin-krzywinski.html"},
58:	};
59:	return $posters;
60:	</%perl>
61:	</%method>
62:
63:	<%method leadingquote>
64:	<%perl>
65:	my @pg = ("The snowflake was born on a cold, winter's day far up in the sky, many miles above earth.",
...
67:	"Now she was round and as pure as the morning light, crystal clear and like a tiny silver mirror she was able to catch and give back every colour in the world about her.");
68:	my ($quote,$credit) = rand() < 1/(@pg+1) ? ("Art is scence in love.","E.F. Weisslitz") : ($pg[rand(@pg)],"Paul Gallico, <i>Snowflake</i>");
69:	</%perl>
70:	<div class=vmar3>
71:	<p class=quote style="width:400px;">
72:	<% $quote %><br><span class=norm>— <% $credit %></span>
73:	</p>
74:	</div>
75:	</%method>
...
116:
117:	<%method alt>
118:	% return "Gravner-Griffeath Snowflake Simulation by Martin Krzywinski and Jake Lever";
119:	</%method>
120:
121:	<%method masthead>
122:	% my $n = 7;
123:	% my @codes = (sort { rand() <=> rand() } $m->comp("oddities.mhtml:oddflakes"))[0..$n-1];
124:	% my @idx = map { $cache->{by}{code}{$_} } @codes;
125:	% my @flakes = map { $cache->{flakes}[$_] } @idx;
126:	<div class=masthead>
127:
128:	<p>Go ahead, meet some snowflakes.</p>
129:	<div class=vmar4>
130:	% for my $flake (@flakes) {
131:	<& SELF:drawflake, flake=>$flake, label=>sprintf("%s",$flake->{name}), width=>125, suffix=>"tf" &>
...
135:	<br clear=both>
136:	</div>
137:	<%args>
138:	$cache
139:	</%args>
140:	</%method>
141:
142:	<%method drawflake>
143:	% return if ! $flake && ! $blank;
...
169:	% }
170:	</div>
171:	<%args>
172:	$flake => undef
173:	$width => 100
174:	$suffix => "tf"
175:	$link => undef
176:	$flakelink => 1
177:	$label => undef
178:	$imgstyle => ""
179:	$tight => undef
180:	$blank => undef
181:	$transparent => undef
182:	</%args>
183:	</%method>
184:
185:	<%method note>
186:	% my $link = "https://blogs.scientificamerican.com/sa-visual/in-silico-flurries/";
...
188:	<style>
189:	.note {
190:	background: #eee;
191:	color: #000;
192:	}
193:	.note a {
194:	color: #696969;
195:	}
196:	</style>
...

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:
"my" variable %ARGS masks earlier declaration in same scope at /home/martink/www/htdocs/snowflakes/autohandler line 126.
"my" variable %ARGS masks earlier declaration in same scope at /home/martink/www/htdocs/snowflakes/autohandler line 71.
Unmatched right curly bracket at /home/martink/www/htdocs/snowflakes/autohandler line 182, at end of line
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 182, near "}"
Unmatched right curly bracket at /home/martink/www/htdocs/snowflakes/autohandler line 173, at end of line
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 173, near "}"
Can't use global $^W in "my" at /home/martink/www/htdocs/snowflakes/autohandler line 192, near "local $^W"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 120, near "}"
Can't use global $^W in "my" at /home/martink/www/htdocs/snowflakes/autohandler line 127, near "local $^W"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 61, near "}"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 139, near "}"
Unknown regexp modifier "/h" at /home/martink/www/htdocs/snowflakes/autohandler line 5, at end of line
/home/martink/www/htdocs/snowflakes/autohandler has too many errors.


Trace begun at /usr/local/share/perl5/5.32/HTML/Mason/Interp.pm line 851
HTML::Mason::Interp::_compilation_error('HTML::Mason::Interp=HASH(0x7f454c2dbea0)', '/home/martink/www/htdocs/snowflakes/autohandler', 'HTML::Mason::Exception::Compilation=HASH(0x7f4544a35cf8)') called at /usr/local/share/perl5/5.32/HTML/Mason/Interp.pm line 450
HTML::Mason::Interp::load('HTML::Mason::Interp=HASH(0x7f454c2dbea0)', '/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(0x7f454c2dbea0)', '/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(0x7f453f45af68)') 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(0x7f457da2d2b8)') called at /usr/local/share/perl5/5.32/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x7f457da2d2b8)') called at /usr/local/share/perl5/5.32/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x7f454d1d67e0)', 'Apache2::RequestRec=SCALAR(0x7f457c3798b8)') called at (eval 25) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x7f457c3798b8)') called at -e line 0
eval {...} at -e line 0