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 130.
"my" variable %ARGS masks earlier declaration in same scope at /home/martink/www/htdocs/snowflakes/autohandler line 148.
Unmatched right curly bracket at /home/martink/www/htdocs/snowflakes/autohandler line 164, at end of line
(Might be a runaway multi-line '' string starting on line 162)
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 164, near "}"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 166, near "}"
(Might be a runaway multi-line '' string starting on line 165)
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 169, near "}"
(Might be a runaway multi-line '' string starting on line 168)
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 "}"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 139, near "}"
Can't use global $^W in "my" at /home/martink/www/htdocs/snowflakes/autohandler line 149, near "local $^W"
/home/martink/www/htdocs/snowflakes/autohandler has too many errors.
context: 
... 
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;
... 
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" &>
132:  % }
133:  </div>
134:  <div class=legend><img src="img/legend.png"></div>
135:  <br clear=both>
136:  </div>
137:  <%args>
138:  $cache
139:  </%args>
140:  </%method>
141: 
142:  <%method drawflake>
143:  % return if ! $flake && ! $blank;
144:  % my $class = $tight ? q{"flake tight"} : q{"flake"};
145:  % my ($code,$name,$gender) = @{$flake}{qw(code name gender)};
146:  % if(! $code) {
147:  <div class=<% $class %> style="width:<% $width %>px;">&nbsp;</div>
148:  % return;
149:  % }
150:  % my $arenh = $flake->{code} eq "autqzcws";
151:  % $label = "Arenh Jerrus\nof Bosmen" if $arenh && defined $label;
152:  % my $dir = $transparent ? "flakes.transparent" : "flakes";
153:  % $dir .= ".thumb" if $width <= 170;
... 
160:  % } elsif ($flakelink) {
161:  <a href="flake.mhtml?flake=<% $name %>">
162:  <img style="width:<% $width %>px;<% $imgstyle %>" src="<% $file %>.<% $suffix %>.png">
163:  </a>
164:  % } else {
165:  <img style="width:<% $width %>px;<% $imgstyle %>" src="<% $file %>.<% $suffix %>.png">
166:  % }
167:  % if (defined $label) {
168:  <div class=flakelabel><% $label %></div>
169:  % }
170:  </div>
171:  <%args>
172:  $flake => undef
173:  $width => 100
174:  $suffix => "tf"
175:  $link => undef
176:  $flakelink => 1
177:  $label => undef
... 
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 130.
"my" variable %ARGS masks earlier declaration in same scope at /home/martink/www/htdocs/snowflakes/autohandler line 148.
Unmatched right curly bracket at /home/martink/www/htdocs/snowflakes/autohandler line 164, at end of line
  (Might be a runaway multi-line '' string starting on line 162)
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 164, near "}"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 166, near "}"
  (Might be a runaway multi-line '' string starting on line 165)
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 169, near "}"
  (Might be a runaway multi-line '' string starting on line 168)
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 "}"
syntax error at /home/martink/www/htdocs/snowflakes/autohandler line 139, near "}"
Can't use global $^W in "my" at /home/martink/www/htdocs/snowflakes/autohandler line 149, near "local $^W"
/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(0x7f45646ad7c0)', '/home/martink/www/htdocs/snowflakes/autohandler', 'HTML::Mason::Exception::Compilation=HASH(0x7f4574f0bec8)') called at /usr/local/share/perl5/5.32/HTML/Mason/Interp.pm line 450
HTML::Mason::Interp::load('HTML::Mason::Interp=HASH(0x7f45646ad7c0)', '/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(0x7f45646ad7c0)', '/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(0x7f45646245d8)') 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(0x7f45627ef128)') called at /usr/local/share/perl5/5.32/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x7f45627ef128)') called at /usr/local/share/perl5/5.32/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x7f456460d010)', 'Apache2::RequestRec=SCALAR(0x7f455d608d60)') called at (eval 25) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x7f455d608d60)') called at -e line 0
eval {...} at -e line 0