while (($tsid, $userid) = $sth->fetchrow_array) {
    print "$tsid: $userid\n";
}
# check for problems which may have terminated the fetch early
die $sth->errstr if $sth->err;