my $dbh = DBI-> connect("dbi:ODBC:DSN=MSSQL;Server=$server_name;Database=$db_name;UID=$db_user;PWD=$db_pass") or die "CONNECT ERROR! :: $DBI::err $DBI::errstr $DBI::state $!\n"; my $myfile = "/home/sysadm/perl-scripts/fax-5-rx.tif"; open MYFILE, $myfile or die "Cannot open file"; my $data; # Read in the contents while () { $data .= $_; } close MYFILE; my $sql = "INSERT into tblImages(imageid,channel,pages,msgid,content) values ('000111222','8','1','000111222',?)"; my $sth = $dbh->prepare($sql) or die("\n\nPREPARE ERROR:\n\n$DBI::errstr"); $sth->execute($data) or die("\n\nQUERY ERROR:\n\n$DBI::errstr"); $sth->finish; $dbh->disconnect;