Help for this page
while (my $row = $sth->fetchrow_arrayref) { foreach ($row){ if (! ref($row)) { ... print @$row, "\n"; } }
"select program, day, time from TVviewingsked where name = "Frank"