Select Code to Download

#!/usr/bin/perl

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

sub my_sub {}

>perl script.pl

>

#!/usr/bin/perl

...
threads->new(\&my_sub)->detach();
threads->new(\&my_sub)->detach();
sleep(2);

$ script.pl &               unix

>start /b "" script.pl      Windows

#!/usr/bin/perl

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

$_->join() for $thread1, $thread2;