System error

error:  Error during compilation of /home/shermant/public_html/newsletter/index.htm:
Global symbol "$EDIT" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 13.
Global symbol "$EDIT" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 13.
Global symbol "$DBH" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 33.
Global symbol "$DBH" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 39.
Global symbol "$DBH" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 45.
Global symbol "$DBH" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 60.
Global symbol "$DBH" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 65.
Global symbol "$EDIT" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 84.
Global symbol "$EDIT" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 175.
Global symbol "$EDIT" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 207.
context: 
... 
9: 
10:  <%perl>
11:  use Date::Calc qw(Today Month_to_Text);
12: 
13:  $EDIT=$ARGS{'edit'} if(!$EDIT);
14: 
15:  my ($year, $month, $day) = Today();
16:  my $page_id=$ARGS{'page_id'} || 0;
17:  #undef $page_id;
... 
29:  my $sth;
30: 
31:  if ($page_id == 0) {
32:  # get the first story
33:  $sth = $DBH->prepare("SELECT ID FROM PageTitles where month=? and year=? ORDER BY ID LIMIT 1");
34:  $sth->execute($month,$year);
35:  $sth->bind_columns(undef, \($page_id));
36:  $sth->fetch;
37:  $sth->finish;
38:  }else{
39:  $sth = $DBH->prepare("SELECT month FROM PageTitles where ID=?");
40:  $sth->execute($page_id);
41:  $sth->bind_columns(undef, \($wichMonth));
42:  $sth->fetch;
43:  $sth->finish;
44:  }
45:  $sth = $DBH->prepare("SELECT url FROM NewsLetter where pageID=?");
46:  $sth->execute($page_id);
47:  $sth->bind_columns(undef, \($PDFurl));
48:  $sth->fetch;
49:  $sth->finish;
... 
56: 
57:  #---------------------------------------------
58:  my $whichDate=Month_to_Text($wichMonth).' '.$whichYear;
59:  my $isPDFdate;
60:  $sth = $DBH->prepare("SELECT dateStr FROM NewsLetter where dateStr=?");
61:  $sth->execute($whichDate);
62:  $sth->bind_columns(undef, \($isPDFdate));
63:  $sth->fetch;
64:  $sth->finish;
65:  $sth = $DBH->prepare("SELECT Stories.ID FROM Stories, Pages
66:  WHERE Stories.ID=Pages.STORY AND Pages.PAGENUM=?"
67:  );
68: 
69:  $sth->execute($page_id);
... 
80:  </head>
81: 
82:  <body>
83:  <basefont face="arial">
84:  % if($EDIT){
85:  % if($help==1){
86:  <form name=toggle1 method=post action=?>
87:  % if($help==1){
88:  <input type=hidden name=page_id value="<%$page_id%>">
... 
171:  <center><a href="<%$PDFurl%>" target=_blank>View this Newsletter</a>
172:  % }
173:  <hr>
174:  <center><& page_index, current_page => $page_id, year=>$whichYear, help=>$help &></center>
175:  % if ($EDIT) {
176:  <p>
177:  <center>
178:  <a href="add_story.mhtm?page_id=<% $page_id %>">Add a story</a> <font size=+1 color=Maroon><b>|</b></font>
179:  <a href="add_page.mhtm">Add a page (for current month/year)</a> <font size=+1 color=Maroon><b>|</b></font>
... 
203:  <&'displayNewsLetters'&>
204:  </td>
205:  </tr>
206:  </table>
207:  % if($EDIT){
208:  <br><br><a href="/secure">Main Menu</a>
209:  % }
210:  </body>
211: 
... 
code stack:  /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Interp.pm:445
/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm:246
/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm:211
/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm:97
/usr/lib/perl5/site_perl/5.8.8/Class/Container.pm:275
/usr/lib/perl5/site_perl/5.8.8/Class/Container.pm:353
/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Interp.pm:348
/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm:868
/usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm:822
(eval 37):8
/dev/null:0
raw error






























Error during compilation of /home/shermant/public_html/newsletter/index.htm:
Global symbol "$EDIT" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 13.
Global symbol "$EDIT" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 13.
Global symbol "$DBH" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 33.
Global symbol "$DBH" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 39.
Global symbol "$DBH" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 45.
Global symbol "$DBH" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 60.
Global symbol "$DBH" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 65.
Global symbol "$EDIT" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 84.
Global symbol "$EDIT" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 175.
Global symbol "$EDIT" requires explicit package name at /home/shermant/public_html/newsletter/index.htm line 207.



Trace begun at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Interp.pm line 845
HTML::Mason::Interp::_compilation_error('HTML::Mason::Interp=HASH(0xa7ed648)', '/home/shermant/public_html/newsletter/index.htm', 'HTML::Mason::Exception::Compilation=HASH(0xa7f19d4)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Interp.pm line 445
HTML::Mason::Interp::load('HTML::Mason::Interp=HASH(0xa7ed648)', '/newsletter/index.htm') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 246
eval {...} at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 231
HTML::Mason::Request::_initialize('HTML::Mason::Request::ApacheHandler=HASH(0xa7f13c8)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 211
HTML::Mason::Request::new('HTML::Mason::Request::ApacheHandler', 'error_mode', 'output', 'error_format', 'html', 'interp', 'HTML::Mason::Interp=HASH(0xa7ed648)', 'comp', '/newsletter/index.htm', 'args', 'ARRAY(0xa7e8954)', 'ah', 'HTML::Mason::ApacheHandler=HASH(0xa7ed6cc)', 'apache_req', 'HTML::Mason::Apache::Request=HASH(0xa7e7c28)', 'container', 'HASH(0xa7e88ac)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm line 97
HTML::Mason::Request::ApacheHandler::new('HTML::Mason::Request::ApacheHandler', 'error_mode', 'output', 'error_format', 'html', 'interp', 'HTML::Mason::Interp=HASH(0xa7ed648)', 'comp', '/newsletter/index.htm', 'args', 'ARRAY(0xa7e8954)', 'ah', 'HTML::Mason::ApacheHandler=HASH(0xa7ed6cc)', 'apache_req', 'HTML::Mason::Apache::Request=HASH(0xa7e7c28)', 'container', 'HASH(0xa7e88ac)') called at /usr/lib/perl5/site_perl/5.8.8/Class/Container.pm line 275
Class::Container::call_method('HTML::Mason::Interp=HASH(0xa7ed648)', 'request', 'new', 'interp', 'HTML::Mason::Interp=HASH(0xa7ed648)', 'comp', '/newsletter/index.htm', 'args', 'ARRAY(0xa7e8954)', 'ah', 'HTML::Mason::ApacheHandler=HASH(0xa7ed6cc)', 'apache_req', 'HTML::Mason::Apache::Request=HASH(0xa7e7c28)', 'container', 'HASH(0xa7e88ac)') called at /usr/lib/perl5/site_perl/5.8.8/Class/Container.pm line 353
Class::Container::create_delayed_object('interp', 'HTML::Mason::Interp=HASH(0xa7ed648)', 'comp', '/newsletter/index.htm', 'args', 'ARRAY(0xa7e8954)', 'ah', 'HTML::Mason::ApacheHandler=HASH(0xa7ed6cc)', 'apache_req', 'HTML::Mason::Apache::Request=HASH(0xa7e7c28)', 'container', 'HASH(0xa7e88ac)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Interp.pm line 348
HTML::Mason::Interp::make_request('HTML::Mason::Interp=HASH(0xa7ed648)', 'comp', '/newsletter/index.htm', 'args', 'ARRAY(0xa7e8954)', 'ah', 'HTML::Mason::ApacheHandler=HASH(0xa7ed6cc)', 'apache_req', 'HTML::Mason::Apache::Request=HASH(0xa7e7c28)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm line 868
eval {...} at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm line 867
HTML::Mason::ApacheHandler::prepare_request('HTML::Mason::ApacheHandler=HASH(0xa7ed6cc)', 'Apache=SCALAR(0xa7e7bbc)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm line 822
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0xa7ed6cc)', 'Apache=SCALAR(0xa7e7bbc)') called at (eval 37) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache=SCALAR(0xa7e7bbc)') called at /dev/null line 0
eval {...} at /dev/null line 0