Select Code to Download

my $sth = $dbh->prepare($SQL) or die $dbh->errstr;
$sth->execute() or die $dbh->errstr;
$dbh->commit or die $dbh->errstr;

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;