use strict;
use threads;

my @threadsArr;

$SIG{INT} = 'INT_HANDLER';

for (my $ii = 0; $ii < 10; $ii++) {
my $Thread = threads->new( "Thread_SUB", $arg1, $arg2 );
push (@ThreadsArr, $Thread);
}

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

sub INT_HANDLER {
print "Received Interrupt, Stopping the Program.\n";
}

sub Thread_SUB {
my $arg1 = shift;
my $arg2 = shift;
print "$arg1 - $arg2\n";
sleep 200;
}