while(@cols=$sth->fetchrow_array) {
    $cur_rowid = shift @cols if $row_id;
    print OFILE join("$delimiter", @cols), "\n";
]

if($sth->err) {
    print "$sth->errstr\n";
}