use strict;
use warnings;
use DBI;
use DBD::ODBC;
#command [arg1] [arg2]
#perl getfile.pl [outputfilename.extension] [documentsUniqueId]


my $outfileName = $ARGV[0]; # filename: "TestRecoverBlob.docx"
my $uniqueId = $ARGV[1]; #unique to find the proper DB row/field hex number - 0x01420C.....B689
my $user = "user";
my $pass = "pass";
my $dsn = "dbi:ODBC:Driver={SQL Server};Server=X.X.X.X;Database=DB_NAME";

my $dbh = DBI->connect($dsn,$user,$pass) or die DBI::errstr(); 

$dbh-> {LongReadLen} = 26214400;   #25MB max 
				   #10485760 = 10MB;

my $sth = $dbh->prepare(qq{
					select t.RDFILE
					from DB_NAME.schema.TABLE_NAME t
					where t.UNIQUEID = $uniqueId
				});
				
$sth->execute();

    # Create file :
open (FILE, ">", $outfileName);

while (my $row = $sth->fetchrow_arrayref()) {
    # Save blob data into this file:
    print FILE $row;   
}
close FILE;

$dbh->disconnect();
print "Finished."