open(INFILE,"X:\\\\ongoing\\bioinformatics\\db2\\image\\picture1.wmf");
binmode(INFILE);
$img_data = <INFILE>;
close(INFILE);

my $stmt = "INSERT INTO project_figures (pjfg_id, pjfg_name, pjfg_image) VALUES(?,?,?)";
my $sth  = $dbh->prepare($stmt);
my $rc   = $sth->execute(1,'picture1.wmf', $img_data);