my $sth = $dbh->prepare(qq(SELECT tripdata, tripmimetype FROM vacation_files WHERE id=?));
$sth->execute($id);
$sth->bind_columns(\$tripdata, \$tripmimetype);
$sth->fetch();
$sth->finish();
$dbh->disconnect;
$tripmimetype = ($tripmimetype eq "application/octet-stream") ? 'application/x-ipix' : $tripmimetype;
print "Content-type: $tripmimetype\n";
print $tripdata;
exit;