Select Code to Download

#!/usr/bin/perl

use DBI;
...
    print "<tr><td>$name</td><td>$price</td></tr>\n";
    print "<tr><td colspan=\"2\">$description</td></tr>\n";
}

# ... assume up to $sth->execute

$sth->bind_columns(
...
)  || die("unable to bind columns: ", $sth->errstr);

# ... assume same while-loop and output as before

#!/usr/bin/perl

use DBI;
...
    print "<tr><td>$name</td><td>$price</td></tr>\n";
    print "<tr><td colspan=\"2\">$description</td></tr>\n";
}