Select Code to Download

while (my $row = $sth->fetchrow_arrayref) {
    foreach ($row){
    if (! ref($row)) {
...
        print @$row, "\n";
}
}

"select program, day, time 
from TVviewingsked 
where name = "Frank"