#!/usr/bin/perl

use threads;

DESTROY { print "Destroyed\n" }

sub test {
   my $x = bless({});
   sleep() while 1;
}

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