module_name subroutine_name ##

##

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

##

##

package test;
 
require Exporter;
                               
our @ISA        =qw(Exporter);
our @EXPORT     =qw(forthread);
our @VERSION    =1.0;
 
sub forthread{
        my (argument)=@_;
my $thread=threads->create('another', (argument));
$thread->join();
        return 0;
} #forthread

sub another{
return 0;
} #another