or download this
open(INFILE,"X:\\\\ongoing\\bioinformatics\\db2\\image\\picture1.wmf")
+;
binmode(INFILE);
...
my $stmt = "INSERT INTO project_figures (pjfg_id, pjfg_name, pjfg_imag
+e) VALUES(?,?,?)";
my $sth = $dbh->prepare($stmt);
my $rc = $sth->execute(1,'picture1.wmf', $img_data);