#!/usr/local/bin/perl
use strict;
use Data::Dumper;
use Tk;
use POE qw( Component::EasyDBI);
sub POE::Kernel::ASSERT_DEFAULT () { 1 }
sub POE::Kernel::TRACE_DEFAULT  () { 1 }
sub POE::Kernel::TRACE_SESSIONS () { 1 }

my $dbtype="dbi:Pg:database=cnc";
my $usr="cnc";
my $pass="cnc_diner";

&mainpoe;

sub mainpoe
{
    POE::Component::EasyDBI->spawn(
        alias       => 'EasyDBI',
        dsn         => "$dbtype",
        username    => "$usr",
        password    => "$pass",
    );   
    POE::Session->create(
        inline_states => {
        _start => \&startme,
        result_handler => \&resulthandler,
        },
        options => {
            trace => 1,
            debug => 1
        },
    );
    sub startme
    {
        $_[KERNEL]->post( 'EasyDBI',
            arrayhash => {
                sql=>"select id from testtable",
                event => 'result_handler',
            }
        );
    }
    sub resulthandler
    {
        my ($resultref) = $_[ARG0];
        print Dumper($resultref),"\n";
        $_[KERNEL]->post( 'EasyDBI' => 'shutdown' );
    }
    $poe_kernel->run(); 
}

##</code><code>##

Error message:
AppName: perl.exe	 AppVer: 5.8.7.815	 ModName: perl58.dll
ModVer: 5.8.7.815	 Offset: 00089af4