You are trying to execute a query larger than your max_allowed_packet perhaps?

And you could be reading your file with read

open(FILE,"<".$filename) || die ("Could not open FILE");
my $size = -s $fname;
my $data;
read FILE, $data, $size;   
$sth->execute($pid, $_, $data, $public) if $data;
close(FILE);
[download]

After checking and possibly adjusting your max_allowed_packets (else if you cannot adjust it) you could do something along the lines of this: Handling huge BLOB fields with DBI and MySQL

-xtype