package My::Greeting;
  use strict;

  use Apache::Constants qw(OK);
  use Data::Dumper;
  use DBI;

  sub handler {
      my $r = shift;
      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

      my $DBH || DBI->connect( "dbi:mysql:localhost", "rentsaver", "root" ) ;

      Dumper( $DBH );
      return OK;
  }

1;