while (@row = $sth->fetchrow_array) {
    print OUTFILE '|',join('|',@row),"|\n";
}