#while (1) 
#{ 
        my $thread = threads->new(\&querySystem);
        $thread->join;
        sleep 5;
#} 
        print "Starting second thread\n";
         $thread = threads->new(\&querySystem);
        $thread->join;
        sleep 5;