#!/usr/bin/perl

use threads;

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

sub my_sub {}