xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/rt-124203 (revision f6246b7f478ea7b2b6df549ae5998f8112d22650)
1use threads;
2my $thr = threads->create(\&sub1);
3sub sub1 {
4   print("In the thread\n");
5}
6$thr->join;
7print "Finished\n";