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

##</code><code>##

package test;
 
require Exporter;
                               
our @ISA        =qw(Exporter);
our @EXPORT     =qw(queuereader);
our @VERSION    =1.0;
 
sub forthread{
        my ($arg)=@_;
        return 0;
} #forthread

##</code><code>##

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

##</code><code>##

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

sub another{
return 0;
} #another