[Fri Jul 25 00:58:42 2003] [error] Can't locate object method "server" via package "My::Greeting" at /webcontent/server_home/test/My/Greeting.pm line 24.

##</code><code>##

package My::Greeting;

use strict;
use vars qw( $DBH );
use Apache::Constants qw(OK);
use Data::Dumper;

sub new($$) {

    my ( $class , %args ) = @_;

    ## stash a DBH in the object ... 
    $DBH = $args{DBH} || DBI->connect( "dbi:mysql:rentsavers", "root", "", ) ;

    my $self = bless { _DBH => $DBH }, $class;

    return $self;
    }

sub handler($$) {
      my ( $r, $class ) = @_;
      my $now = scalar localtime;
      my $server_name = $r->server->server_hostname;
      $r->send_http_header('text/plain');
      print <<EOT;
  Thanks for visiting $server_name.
  The local time is $now.
EOT

  print Dumper( $class );
  return OK;
  }