#!/usr/bin/perl ;


my $r = shift ;

use strict;
use vars qw($DBI);
use warnings FATAL => 'all';
use DBI;


$DBI ||= DBI->connect("dbi:Pg:dbname=template1;host=127.0.0.1;port=10123"
		       , "postgres", "");

#$r->content_type('text/plain');
    #$r->print("Now is: " . scalar(localtime) . "\n");


sub send_stuff {
    my $r = shift ;
    $r->content_type('text/plain');
    $r->print("Now is: " . scalar(localtime) . "\n");
    $r->print("$DBI\n");
    #$r->print("$r\n");

}

send_stuff($r);