#!/usr/bin/perl

use threads;

threads->new(\&my_sub)->detach();
threads->new(\&my_sub)->detach();

sub my_sub {}