#!/opt/perl-5.8.2/bin/perl

use threads;
use DBI;

our $orashr : shared = '' ;

@threads;
printf "Starting thread ";
for ($i = 0; $i < 50; $i++) {
        printf "$i ";
        $threads[$i] = new threads(\&do_db);
}
printf "\n";

printf "Joining thread ";
for ($i = 0; $i < 50; $i++) {
        printf "$i ";
        $thread = $threads[$i];
        $thread->join;
}
printf "\n";

sub do_db {
        my $dbh = DBI->connect("dbi:Oracle:host=localhost;sid=testdb1", "user1", "pass1", { ora_dbh_share => \$orashr} ) || die $!;
}