open(TARFILE, "< $domain_path/$file_name"); while() { $filedata = $filedata . $_; } $db_handle = DBI->connect('DBI:mysql:PMCONTROL:host:port', 'db', 'password', { RaiseError => 1, AutoCommit => 1}); my $sth = $db_handle->prepare("insert into LOGS (Domain, ID, Batch, LOG_Type, File_name, Comment, File_Data) values(?,?,?,?,?,?,?)"); $sth->execute($doma, $d_id, $entry->{batch}, $entry->{log_type}, $file_name, $entry->{comment}, $filedata); $sth->finish(); $db_handle->disconnect();