Select Code to Download

package Nagios::DBI;
use base 'Class::DBI::Pg';  # tried w/ and w/out the Pg
...
#Nagios::History->columns( All => qw/serial server epoch servicedesc p
+luginoutput/ );

1;

#!/usr/local/bin/perl -w

...
    print "::<<<<<<<<<<<<<end foreach::\n**************\n\n\n\n";

}

********************
::begin foreach>>>>>>>>>
...
::<<<<<<<<<<<<<end foreach::
**************

nagios=> \dt
             List of relations
...
--------+-------------+--------------+-------+--------
(0 rows)

# uname -sr
FreeBSD 4.9-RELEASE-p4
...

p5-DBI-1.42