use strict;
use warnings;
no warnings qw[threads];

use threads;

my $thread1 = new threads(\&my_sub);
my $thread2 = new threads(\&my_sub);

sub my_sub {}

exit; # needs explicit exit for reasons beyond me