Select Code to Download

#!/usr/bin/perl -wT

...

my $dbstuff=dbhandler->new(handle=>'handle1', user=>'usename', pwd=>'p
+assword',sid=>'database1');
$dbstuff->fetch_handle(handle=>'handle2', user=>'usename',pwd=>'passwo
+rd',sid=>'database2');