$r->content_type('application/x-download');
$r->err_headers_out->add('Content-disposition' => ("attachment; filename=$filename"));

my ($st,$sth) = ();
$st = "SELECT bin_data FROM forms WHERE filename = '$filename'";
$sth = $dbh->prepare($st) or die "Prepare Failed! " . $st . $dbh->errstr();
$sth->execute() or die "Execute Failed! " . $st . $sth->errstr();
my $filedata = $sth->fetchrow();
$sth->finish();
$m->clear_buffer;
$m->print( $filedata );
$m->abort;
return;