System error

error:  Can't locate object method "header_in" via package "Apache2::RequestRec" at /home/httpd/html/viewtech/naddorder.htm line 49.
context: 
... 
45:  $rq=$conn->prepare("select nextval(\'nextcookie\')");
46:  $rq->execute();
47:  ($cookie_value)=$rq->fetchrow();
48: 
49:  my $domain=$r->header_in('Host');
50:  $domain =~ s/^\w+\.//i;
51: 
52:  my $cookie = new CGI::Cookie(-name=>'VIEWTECH',
53:  -value=>$cookie_value,
... 
code stack:  /home/httpd/html/viewtech/naddorder.htm:49
raw error






























Can't locate object method "header_in" via package "Apache2::RequestRec" at /home/httpd/html/viewtech/naddorder.htm line 49.


Trace begun at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Can\'t locate object method "header_in" via package "Apache2::RequestRec" at /home/httpd/html/viewtech/naddorder.htm line 49.^J') called at /home/httpd/html/viewtech/naddorder.htm line 49
HTML::Mason::Commands::__ANON__ at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x555563e036d0)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 1257
eval {...} at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 1252
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 466
eval {...} at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 466
eval {...} at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/Request.pm line 418
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x555563c9b480)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x555563c9b480)') called at /usr/lib/perl5/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm line 826
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x555563c97100)', 'Apache2::RequestRec=SCALAR(0x5555635ee830)') called at (eval 30) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x5555635ee830)') called at -e line 0
eval {...} at -e line 0