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);