Select Code to Download

use CGI;
use DBI;
...
my ($type, $image) = $sth->fetchrow_array();

print $q->header( $type ), $image;