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