while (!$session->{ErrorStr} ) { 
        print( "q - $q, num jobs - $num_jobs, "
               . "comment - $share_comment, "
               . "tag - " . $$vars[0]->tag . "\n" );
------> ($q, $num_jobs) =  $session->getnext($vars);
    }