#/usr/bin/perl 

use strict;
use warnings;
use threads;
use threads::shared;

my @thrList;
my $count = 1;
share $count;

my $counter = 3;

while($counter) {
	 $counter--;
	 my $thrHandle = threads->create(\&thrdfun);
	 push @thrList, $thrHandle;	
}

foreach(@thrList){
	 $_->join(); 
	}	

sub thrdfun {
    sub catch_CtrlC {
        $SIG{'INT'} = threads->kill('TERM');
    }
    
    $SIG{INT} = \&catchCtrlC;
	 print "thrdfun: $count \n";
	 $count++;
	 while(1){
	     ();
	 }
	 exit;
}