#!/usr/bin/perl

use threads;
use POSIX qw( _exit );

sub worker { sleep() while 1; }

$SIG{INT} = sub { _exit(0) };
my $thread = threads->create('worker')->detach();
print("Press Ctrl-C to exit\n");
sleep() while 1;