while ($record = $sth->fetchrow_arrayref())
    {
        $id = $$record[0];
        $data = $$record[1];
        $fileName = $$record[3];
        my $outFile = "$filesDir$fileName"; 
        open OUTF, ">$outFile" or print "Can't open '$outFile' for writing\n<BR>";
        binmode OUTF;
        print OUTF $data;
        close OUTF;
    }