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