Select Code to Download

use threads;
use test;
...
my $thread=threads->create("forthread", ($argument));
$thread->join();
exit(0);

package test;
 
...
        my ($arg)=@_;
        return 0;
} #forthread

use threads;
use test;
...
my $thread=threads->create("forthread", (argument));
$thread->join();
exit(0);

package test;
 
...
sub another{
return 0;
} #another