#!/usr/bin/perl -wT

BEGIN {push @INC, "../lib"};
use strict;
use dbhandler;
use Data::Dumper;

my $dbstuff=dbhandler->new(handle=>'handle1', user=>'usename', pwd=>'password',sid=>'database1');
$dbstuff->fetch_handle(handle=>'handle2', user=>'usename',pwd=>'password',sid=>'database2');