Select Code to Download

#!/usr/bin/perl -w
use strict;
...
open(OUT_PDF, ">DOCUMENT.PDF") or die "Can't open file!";
print OUT_PDF $pdf;
close(OUT_PDF);

my $STH = $DBH->execute("SELECT [column] "
.                       "FROM [table] "
...
or die "WTF?  I can't find what you're looking for!";
my $array_ref = $STH->fetchrow_arrayref;
$blob = $array_ref->[0];