#!/usr/local/bin/perl

use threads;
use sample;


$ENV{'ORACLE_HOME'} = '/usr/opt/oracle';

sub worker() {

   my $count = 0;

   # Make it do some work (open and close DB 10 times).
   while ( $count < 2 ) {
      sample::showtime();
      $count = $count + 1 ;
      #my $cmd = "ls -l /proc/$$/fd | grep ocius";
      #print threads -> self() -> tid()  . " : " . `$cmd` ;
      sleep 3
   }
}

my $nthreads = 5;

for ( 1..$nthreads )
{
   threads->create(\&worker);
}

foreach my $thr (threads->list() )
{
   $thr->join();
}

print ("Check no. of fd's for ocius.msb using lsof -p $$. Sleeping 30s \n");
print ("If no. of fd's > 0, then why there is still fd's not closed even after"
       . " threads have exited \n");

sleep(30);