PerlRequire /home/ted/modperlhandler/Hello.pm
<Location /time>
    SetHandler perl-script
    PerlResponseHandler Hello
</Location>


##</code><code>##

package Hello
use strict;

use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::Request;
use DBI;

use Apache2::Const -compile => qw(OK);

sub handler {
  my $db = 'nutrientsdb';
  my $hostname = '192.168.2.24';
  my $user = 'rejbyers';
  my $dbpwd = 'xxxxxxxxxxx';
  my $dbh = DBI->connect("DBI:mysql:database=$db;host=$hostname",$user,$dbpwd,{RaiseError => 1}) or die "Failed to connect to the DB.\n";
  my $r = shift;
  my $req = Apache2::Request->new($r);
  my $table = $req->param;
  my %p = %$table;
  my $name = $p{'name'};
  if ((defined $name) && (length($name) > 0)) {
    print "Hello $p{'name'}, the time is " . localtime() . "\n\n\n";
    foreach my $k (keys %p) {
      print "$k <=> $p{$k}\n";
    }
  } else {
    print "Hello World,  the time is " . localtime() . "\n";
  }
  return Apache2::Const::OK;
}

1;


##</code><code>##

#!perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;

use CGI::Carp::DebugScreen (
    engine => 'TT',
    debug          => 1,
    lines          => 5,
    modules        => 1,
    environment    => 1,
    raw_error      => 1,
    overload       => 1,
);

my $query = new CGI;
print $query->header;

my $db = 'nutrientsdb';
my $hostname = '192.168.2.24';
my $user = 'rejbyers';
my $dbpwd = 'xxxxxxxxxxx';
my $dbh = DBI->connect("DBI:mysql:database=$db;host=$hostname",$user,$dbpwd,{RaiseError => 1}) or die "Failed to connect to the DB.\n";

my $title = 'My CGI Script';

&print_html_header($title);
&print_body;
&print_end;

exit(0);

sub print_html_header {
  print $query->start_html(shift);
}

sub print_end {
  print $query->end_html;
}

sub print_body {
  my $sql = 'SELECT * FROM FD_GROUP';
  my $sth = $dbh->prepare($sql);
  $sth->execute;
  print '<table border>';
  while (my $aref = $sth->fetchrow_arrayref) {
    my ($code,$desc) = @$aref;
    print "<tr><td>$code</td><td>$desc</td></tr>";
  }
  print '</table>';
  $sth->finish;
}